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Errata Sheet 


1. p. 1-5 First paragraph of Sec. 1.2 should be: 

The HAL Guide is divided into three parts . Part I 
presents an overall view of HAL and its essential elements; 
Part II defines a useful mathematical subset designated 
HAL^; Part III completes the description of the full 
capabilities of the language in this implementation. 

-The appendices 

I 

2. p. 3-1 The last sentence should be: Scalars and the elements 

of vectors and matrices are 'floh ting-point quantities . 


3. p. 4-10 Example 4. 2. 1.1 a 

X = VECTOR. 


4. 

p. 4-14 

(x-p) 2 + (y-q) 2 = r 2 

5. 

p. 5-3 

Example e) 



[A] J TO # instead of 

6. 

p. 5-4 

* 

(E 1 TO 3, 1 TO 31 

7. 

p. 5-5 

(top of page) 



W = Y - 6; 


J TO # 


3 


.... and W = Y - 6 will be executed-. 


INTERMETRICS INCORPORATED .• 380 GREEN STREET • CAMBRIDGE, MASSACHUSETTS 02139 • (617) 868-1840 



8. . 

p. 5-12 

A Q — G [B Q + ... 

(also) 

READ (CARDS) G, N, .... 

9. 

p. 5-13 

AZERO = G (BZERO + . . . 



WRITE .(LISTING) I, AZERO; 

• 

o 

H 

p. 6-8 

. polar form is me 1 ^ 
should be 

/ 

- 

... polar form is me 1 ^ 

11. 

p. 6-8 

• insert the following statement after the 



PHASOR PROCEDURE statement: 
DECLARE PI CONSTANT (3. 14159 265) ; 
• omit comment 

PI IS A RESERVED HAL CONSTANT 

12. 

p. 6-9 

(near botton of page) 

• 

- 

YINIT instead -of YIMT 

13. 

p. 7-4 

(top of page) 

...see Sec. 11.1.1. 
(botton of page) 
...see Sec. 11.1.2. 

14. 

p. 7-5 

' (in PROGRAM A) 
omit bar over Q 
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15. p. 7-10 reference should be to Sec. 11.2.1.2 


16. p. 7-11 (within LIST) 

insert SKIP (3), prior to each COLUMN ( ) 

17. p. 9-5 (at botton of page) 

omit (;) after {A}.^ 

18. p. 9-6 (at bottom of page) 

At least one blank must separate structure 
level from identifier; i.e., 

2 B CHARACTER (10) , etc. 

I 

s 

19. p. 10-2 (in Example 2) 

The first 7 bits of B .... 

20. p. 10-7 (middle of page) 

• * • « • 

D&E , F&G& H .... 

21. p. 10-10 (at top of page) 

after the first END; insert 
DO FOR I = 1 TO 12; 

22. p. 10-13 Bars (-) should be placed over [P] , VRESULT, [Q] . 

also, 

BLOCK should be replaced by VRESULT. 

23. p. 10-21 (at bottom of page) 

= C[ )E; 
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24. p. B-6 


(within table) 


instead of .[V]^ 
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Foreword 


This document is Volume II of the final report of a 
programming language development contract for advanced 
manned spacecraft. This effort was sponsored by the 
National Aeronautics and Space Administration's Manned 
Spacecraft Center, Houston, Texas under contract NAS 9-10542 
It was performed by Intermetrics, Inc., Cambridge, .Mass, 
under the technical direction of Mr. Daniel J. Lickly. 

The Technical Monitor for the Manned Spacecraft Center- was' 
initially Mr. John E. Williams and later was Mr.- Jack R. 
Garman, FS/5. 


The publica'tion of this report does not constitute approval 
by the NASA of the findings or the conclusions contained 
therein. It is published for the' exchange and stimulation 
of ideas . 



PREFACE 


This, document is meant to serve as an introductory guide 
to the HAL programming language. The guide does not attempt 
to cover all the features of the language and is directed at 

b 

the .initial implementation of HAL on the IBM 360/75 at the 
Manned; Spacecraft Center in Houston, Texas. 

■ • Complete specifications for HAL are given in "The 
Programming Language, HAL, - A Specification", Document 
#jMSC- 01846 . 
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Part I 


AN INTRODUCTION TO HAL 



1^0 Brief Description of HAL 

HAL is a programming language developed by Intermetrics , 

i 

Inc. for aerospace computer applications. It is intended to 
satisfy the requirements for 'both on-board and support software. 
The language contains features which provide for -real-time 
control, vector-matrix and array data handling, and bit 
and character string manipulations. 

1.1 The Basic Characteristics of HAL 

1.1.1 Source Input/Source Listing 

A singular feature of HAL is that it accepts source 
code in a multi- line format, corresponding to the -natural 
notation of ordinary algebra. An equation which involves 
exponents and subscripts may be written, for example, as 

C x = (X Aj + Y B 2 ) 3/2 

.instead of (as in FORTRAN or PL/1) 

C (I) '= (X*A(J) **2+Y*B (K) **2) ** (3./2) 
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HAL also permits an optional single-line format; its construction 
is similar to the example above, with some minor changes; thus 

C$1 = (X A$J**2+Y B$K**2}**3/2 

HAL source .code may be input on cards or by data terminal. 
The input stream is free-form in that, for the mdst : part, card 
or carriage -column locations have no meaning; statements are 
separated simply by semi-colons. 

In an effort to increase program reliability and promote 
HAlL as a more direct communications medium between specifications 
and code, the HAL program listing is annotated with special 
marks. Vectors, matrices and arrays of data are instantly 
recognized by bars, stars and brackets. Thus, a vector becomes 

_ J •* . * 

.V, a matrix M, and an array [A] . Further, bit strings appear 

. * # ° ^ . f 

with a dot, i.e., B and character strings with a comma, C. 

With these special marks as aids, the source listing is 
more easily understood and serves as an important step 
■ toward self-documentation. In addition to data marks, logical 
paragraphs, or blocks of code, are automatically indented so that 
dependence of one .block on another may be seen clearly. 5; 
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HAL is a higher-order language, designed to allow the 

programmer- analyst- engineer to communicate with the computer 

in a form which approximates natural mathematical expression. 

j - 

Parts of the English language are combined with standard 
notation to provide a tool that readily encourages programming 
without demanding computer hardware expertise. 

,1.1.2 Data Types and Computations 

HAL provides facilities for manipulating a number of 
different data types. Arithmetic data may be declared as 
scalar, vector, matrix or integer (whole number) . Individual 
bits may be treated as Boolean quantities err grouped together 
in strings. The language handles text by manipulating character 
strings via special instructions. Organizations of datatypes 
may also be constructed? one-, two-, or three-dimensional 
arrays of any single type can be formulated, partitioned, 
and used in expressions. An hierarchical organization called 
a. structure can be declared in which related data of different 
types may be stored and retrieved as a unit or by individual 
reference. 

HAL requires that most data types be described explicitly; 
i.e., by declarations which assign a name and specify 'desired 
attributes. However, for scalars, 3-dimensional vectors, 3x3 
matrices, and Booleans (1 bit bit-strings), the programmer can 
take advantage of HAL's implicit declarations and let the 
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compiler assign these variables appropriately. 

The arithmetic data types together with the appropriate 

i 

operators and built-in functions constitute a useful mathematical 

| . 

subset. HAL can be used directly as a "vector-matrix" language 
in implementing large portions. of both on-board and support 
software. For example, a simplified equation. of motion might 
appear as 

A = B ACC; 

G = -MU UNIT (R)/R.R; 

VDOT = A + G; 

ROOT = V; 

* ' 
where the matrix B transforms acceleration 'from spacecraft to 

reference coordinates. 

By combining data types within expressions and utilizing 
both implicit and explicit conversions from one type to another, 
HAL may be applied to a wide variety of problems with a powerful 
and versatile capability. 

1.1.3 Real-Time Control 

HAL is a real-time control language? that is, certain 
defined blocks of code called programs and tasks can be 
scheduled based on time or the occurrence of anticipated 
events. A limited subset of HAL’s real-time capabilities will 
be included in the current implementation. 
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1.1.4 Program Reliability 


“ ■ Program reliability is enhanced when a software system 
can create effective isolation for various subsections of code as 
well as maintain and control commonly used data. HAL is a block- 
oriented language in that a block of code can be established with 
locally defined variables that cannot be altered by sections of 
program located outside the block. Independent programs can be 
compiled and run together with communication amon'g the programs 
permitted through a centrally managed and highly visible data 
popl. • For a real-time environment, HAL couples these precautions 
with a locking mechanism which can protect, by programmer directive 
a block from being entered, a task ’from being initiated, and even 
an individual variable from being written into, until the lock 
is removed. (Locking is not included in this implementation.) 

These measures cannot in themselves ensure total software 
reliability but HAL does offer the tools by which many anticipated 
problems, especially those prevalent in real-time control, can 
be isolated and solved. 

1.2 Organization of The Guide 

The HAL Guide is divided into four parts. Part I presents an 
overall view of HAL and its essential elements; Part II defines a 
useful mathematical subset designated HAL^; Part III completes 
the description of the full capabilities of the language in this 
implementation; and Part IV discusses^ source code preparation, and 
the HAL listing, aspects of 360/75 job control, and compile- and 
run-time diagnostics. 

The appendices contain lists of keywords , built-in functions, 
features specifically dependent on the IBM 360/75 computer, and 
other information. 
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2. . Language Elements 
2,. 1 Program Structure 

A HAL program consists of statements terminated by semi- 
colons (;), groups of associated statements which are treated 
as a single statement (DO-groups) , and blocks of statements 
organized as subroutines (procedures and functions). The 
statements and/or blocks must be compiled as a program unit, or 
as sets' of independently compilable program units.- Communication 
between programs is through a common data pool (COWPOOL) within 
'a symbolic library. 

2 . 2 -Data 

2.2.1 Data Declarations 

In general all data types and organizations in HAL 
(lie. , scalar, integer, vector, matrix, bit and character string, 
.array- and structure) must be specifically declared by DECLARE 
statements. However, HAL does provide a subset of data which 
may be declared implicitly, i.e,, simply by appearance in the 
program. Implicit data presumes certain default characteristics; 
e.g. , vector and matrix dimensions. 

2.2.2 Literals 

A literal is a name which expresses its own value and 
is a constant during program execution. Literals can be numeric 
or string; e.g.. 



numeric literal 

bit string literal 
character string literal 

2.3 Statements 

. In addition to the DECLARE statement, HAL statements provide 
for assigning expression results to variables, organizing 
statements in subroutines (procedures and functions) , and con- 
trolling program logic flow. Control is accomplished through 

the IP-, GO TO -, and DO- statements. For a real-time control 

\ 

environment, HAL provides the commands to schedule programs 
and tasks through a real-time executive. 

2 .'4 Xnput-Output 

The HAL input-output statements READ, WRITE, and FILE 
facilitate the reading and writing of data and comments by 
identifying the external device (e.g. , cards) and the quantities 
to be assigned or "displayed". Data may be in standard or 
non-standard formats. Statements are included to store and 
retrieve file data and to control printer page layout. 

2.5 Source Code Preparation 

The HAL program may be written in multi-line or single line 
format and loaded into the compiler on cards, data terminals 
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or other compatible devices. The multi-line format defines 

exponent, main, and subscript lines (E, M, S) and associates 

1 

them into a single input stream. Comments may be included on 

any line by enclosing the comment within the symbol pairs; 

! 

/* and */. Comments can also be introduced on comment lines 
(C-lines) . 

HAL is composed of five basic syntactical elements: 
identifiers, keywords, literals, special characters,- and 
built-in functions. Complex syntactical units (i.e., statements) 
are constructed from these basic elements using a common set of 
input characters. 


2.5.1 The Character Set 

The characters which may be used in writing a HAL program 
are: the numerals 0 through 9, the letters A through Z, a blank 
character, and the following symbols. 


= (equals sign) 

+ (plus sign) 

- (minus sign) 

/ (slash) 

* (asterisk) 

< (less than symbol) 

> (greater than symbol) 
1 (not symbol; also a ) 


[ (OR symbol; also J) 
& (ampersand) 

; (semi-colon) 

: (colon) 

. (period) 

, (comma) 

’ (apostrophe) 

( (left parenthesis) . 
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) .(right parenthesis) 

$ (dollar sign) 

__ (break character) 

# (number sign) 

(§ (at sign) 

[] (brackets) 

{} (braces) 

HAL will -also accept other characters, restricting their 
use to within comments and character strings. Some examples 
are: • I ' Cexclamation point) - 

-% (percent sign). 

? ■ (question mark) 

" (double quotation marks) 


2.5.2 Identifiers 

An identifier is a name which is assigned by the programmer 
to a data element, statement label, etc. Identifiers must 
satisfy the following rules : 

a. The first character must be a letter. 

b. It may contain 0 to 31 more characters, which may be 
any combination of letters, digits, or break characters, 
except that it must not end with a break character. 

c. A qualified structure name' (see Section 8.. 6.2.1) will 
contain imbedded periods and must not end in a period 
or break character. 

d. An identifier may not be a compiler keyword. 
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Examples of valid identifiers: 


.A 

R05 , 

IKTEGRATION__ROTJTINE 
SEXTANT JT 0 JSTAVIGAT ION__B ASE_MAT 
STATE. COV MATRIX 


Examples of invalid identifiers 


1A 

SAMPLE_ 
DECLARE 
POS VEC 

■STATEMENT #200 


begins with a digit 
ends in a break characte: 
reserved word 
contains a blank 
contains a # character 


2.5.3' Keywords 

Keywords are words recognized by the compiler to have 
standard meanings within the language, and are usually unavailable 
for any other use; for example, operators, commands, attributes, 
and built-in function names. A list of HAL keywords is presented 
in Appendix A. . Some examples are: - 

DECLARE 

INTEGER 

AND 

VECTOR 

SQRT 

.TRANSPOSE 
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2.5.4 Literals 


See Section 2.2.2. 

2.5.5 Special Characters 

Special characters or combinations of characters are 
used in HAL as operators, separators, or other delimiters. 
These characters and some of their uses are described below. 

2. 5. 5.1 Arithmetic Operators 

Symbol 
+ 

/ 

f 

(see note below. ) 

* 

** 


Definition 

addition (pr prefix plus! 
subtraction Cor prefix minus I 
division (.other uses also) 
multiplication 

vector cross product (other uses also) 
vector dot product (other uses also) 
exponentiation (single-line) 


t Note that HAL does not utilize a. -character as a multiplication 
operator;-. Instead a space (or spaces) between two distinct 
identifiers is interpreted as multiplication. 
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2.5. 5. 2 Relational Operators 

Definition 
equal to 

not equal to (or 
less than 
greater than 
less than or equal to 
greater than or equal to 
not greater than Cor ^>) 
not less than Cor ''<) 

2. 5. 5. 3 String and Logical Operators 

Symbol 
AND (or &) 

OR (or [ ) 

NOT (or nor A) 

CAT (or | | ) 

2. 5. 5. 4 Other Operators 


Definition 

Indicates repetition within 
a list, or the last member 
of an array or string. 

Scaling operator, or 
character to bit modifier 

Subscript operator (single 
line format) 


Symbol 
. # 

@ ■ 

*.$ 


Definition 
Boolean AMD 
Boolean OR 
Boolean MOT 
Concatenation 


Symbol 

■ n = 

< 

> 

<= 

>= 

~i> 

n< 
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2 . 5 . 5 . 5 Separators 


The following characters have meaning as separators in HAL: 


Symbol 



Definition 

comma 

r 

. (a) 

separates elements of a list; 



(b) 

separates indices in index 
expressions; 



(c) 

separates clauses in declare 
statements . 

semicolon 

7 

(a) 

terminates statements; 

colon 

: 

Xb) 

(a) 

separates structure indices from 
array element indices, 
associates a statement label 
with the succeeding statement; 



(b) 

separates array element 
indices from sub element indices. 

apostrophe 

i 

delimits string literal values 
(character or bit) . 

equals 

=2 

indicates replace in assignment 
and DO FOR statements. 

period 

« 

separates component names of 


qualified structures. 

/* encloses comments 

*/ 

() Parentheses have many uses in 

the language. They are used 
in expressions, for enclosing 
lists, function arguments, data 
dimension and initialization 
values, etc. 
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2.5. 5. 6 Built-in Function Names 


Built-in function names are identified by the compiler 
as part of the language and are therefore keywords . A complete 
list of these functions appears in Appendix B. Some 

examples are : 

ABS 

' TRUNCATE 
COS 
TAN 

INVERSE 

UNIT 


2.5.5. 7 Compiler-Generated Annotation 

The following characters are used by the compiler to 
annotate the output of various data types in the language. 

Identical usage is also acceptable in the input stream. 

Symbol Definition 

• * Over a name demotes a matrix 

Over a name denotes a vector 
. Over a name denotes a bit string 

, Over a name denotes a character string 

[ ] ■ Denotes an array organization 

{ } Denotes a structure organization 
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Part II 


HAL m 

• M 

A MATHEMATICAL SUBSET OF HAL 



3. Introduction to HAL,, 

M 

HAL m defines a useful mathematical subset of HAL. It 
is primarily directed at the programmer-analyst who wishes 
to gain rapid facility with HAL and use it in the solution of 
engineering problems as he would use FORTRAN or ALGOL. As 
such HAL,, concentrates on: 

1) scalar, vector and matrix arithmetic. 

2) simplified data declarations, arrays, and input- 
■ output commands . 

and neglects : 

1) bit- and character-string variables and manipulations 
(except for I/O where necessary). 

2) complicated data arrays and structures. 

3) real-time control and data-locking. 

HAL m is not a formal language subset; "full-HAL" statements 
can be freely mixed in HAL^ if so desired. However, the 
compiler implementation is such that programs written completely 
in HAL m insure the greatest degree of machine independence 
and transferability. 

3.1 Data Types and Data Declarations 

3. 1. 1 Types 

Three data- types are included: scalar, vector, and 

matrix. Scalars and the elements of vectors and matrices ar,e 
floating-point single precision quantities. 
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3.1.2 Data Organizations 

One-, two-, and three-dimensional arrays of scalars may 
be' declared. 

3.1.3 Literals 

3 . 1 . 3 . 1 Arithmetic 

Arithmetic literals are written as a series of decimal 

. . > 
digits with an optional decimal point. The literal may contain' 

powers of 10 r 2 and/or 16, represented by E, B, and H respectively. 

The following are some acceptable forms of arithmetic literals ' 

(all are equivalent to the value, 6) : 

-.6, '6.0, +600E-2, 0.006E3, 12B-1, .12E+2B-1 ' 

3.1. 3. 2 Characters 

Character literals are useful for messages, headings, 
etc. The simplified form is to enclose text; i ,e. , letters , 
digits, symbols, and blanks within quote marks. Thus,. 

’NAUTICAL MILES' 

'ERROR_106' 

•GO BACK, TRY AGAIN!' 
are examples of character literals. 

3.1.4 Declarations 

HAL permits the implicit declaration of scalars'/ vectors, 

and matrices by their first appearance in the program listing. 

A "bar" (-) ; i.e., minus sign, on the E-line over an identifier 

denotes a vector; a "star" (*) ; i.e., asterisk, denotes a matrix? 

-and the absence of any marks above' an identifier means the quantity 

is a scalar. Once marked, the programmer need not continue to 

supply notation in the source code. The compiler will annotate 

3-2 



the output listing appropriately. The implicit declaration of 
vectors and matrices always results in default dimensions.. The 
standard defaults are 3-dimensional vectors, and 3x3 matrices. 

The following statements would suffice to declare the 

scalars A, B, the vectors V, W, Y and the matrix M. 

_ * _ 

W = M V; 

V=AV+BW*Y; 

3.1. 4.1 DECLARE Statements 

Three', data DECLARE statements are necessary within HAL^. 
These statements allow specification of vector and matrix dimensions 
(if defaults are not adequate) as well as the declaration of an 
array of scalars. Some examples are: 

a. DECLARE V VECTOR (6); • ; 

DECLARE VECTOR (8 ) v T,U,V,W; . ; 

The desired vector dimension must appear as an integer 
literal within parenthesis. The second declaration 
illustrates the factored DECLARE statement where. T, U, V, W 
are declared in one statement. 

b. DECLARE M MATRIX (4,4); 

DECLARE MATRIX (3, 6) M,N,P,Q; 

The desired matrix dimensions must appear as integer 
literals within parentheses; i.e 4 ,(rows, columns). The 
second declaration is a factored DECLARE statement. 

c. DECLARE A ARRAY (3) ; 

DECLARE ARRAY (2, 3) A,B ; 

DECLARE C ARRAY (2,3,4); 

The desired array shape must appear as integer literals 
within parentheses. Arrays may be one-, two-, or three- 
dimensional and consist of scalar elements. 
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. 3. 1.4. 2 Arrays, Vectors, Matrices 

-- - . One- dimensional arrays are not, vectors. Two-dimensional 

arrays are not matrices. That is', arrays obey sequential 
element-by-element operations and not vector-matrix arithmetic. 
Thus, for example, 

DECLARE ARRAY (2, 2) A,B,C; 

[C] = [A] . [B] ; 

is executed in the following order: 


C 

c 

c 

c 


11 

- A n 

B 11 

12 

= A 12 

B 12 

21 

= A 21 

B 21 

22 

A 2 2 

B 22 
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4. .Arithmetic Expressions, Assignments and Control 

4 . 1 Arithmetic Expressions 

HAL^ contains three types of arithmetic operands : 

Scalar denoted S 

Vector ' denoted V 

* 

Matrix denoted M 

An arithmetic expression is any meaningful arrangement 
of operators and operands, where parentheses may be freely used 
as in ordinary mathematical notation to specify the grouping or 
ordering of operations. An arithmetic expression is a string 
of arithmetic operations which, when evaluated, results in a 

i 

a scalar, vector, or matrix. 

4.1.1 The Order of Operations 

In the evaluation of an expression, the order of operations 
is determined by parentheses and operator precedence. Operations 
within an expression are performed in the order of decreasing 
priority. For example, in the expression A+B**3, exponentiation 
is performed before addition. If an expression involves 
operations of the same priority, the general rule is that the 
operations are performed left to right . 

If an expression is enclosed in parentheses , it is treated 
as a single operand. The parenthesized expression is evaluated 
before its associated operation is performed. For example, in 
the expression (A/B)C, A is divided by B and then the result is 
multiplied by C. Thus, parentheses modify the normal rules.. of 
priority. 
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The following chart illustrates all the possible arithmetic 
operations in HAL^, as well as each one's priority, operand types, 
and value or result. 


Summary of HAL Arithmetic Operations 


Operation 

Priority 1 

o 

Form 

Results 

Exponentiation 

6 

s s 


scalar 

Matrix transpose 
(short form) 

6 



matrix 

Matrix inverse 
(short form) 

6 

*-l 

M 


matrix 

Scalar-scalar product 

5 

S S 


•scalar 

Scalar-vector or 

vector-scalar product 

5 

S V or 

V s 

vector 

Scalar-matrix or matrix- 
scalar product 

5 

S M or 

to 

1 

*s 

matrix 

Vector-matrix product 

5 

^ rk 

• V M 


vector 

Matrix-vector product 

5 

* _ 
M V 


vector ' 

Vector outer product 

5 

V V 


.matrix 

Matrix-matrix product 

5 

* * 
M M 


matrix 

Vector cross product 

4 

V * V 


vector 

Vector inner (dot) 
product 

3 

V . V 


scalar 

Scalar- scalar quotient 

2 

s / s 


scalar 

Vector-scalar quotient 

2 

V / s 


vector 


1. Higher priorities have larger numerical values. 

2. S , V , M are general scalar, vector, matrix operands - the 

symbols represent operand type rather than value. 
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Operation. (cont'd) 

Priority 

Form 

Results 

Matrix- scalar 

quotient 

2 

M. y 

s 

matrix 

Scalar sum or 

difference 

1, 

S + 

s 

scalar 

Vector sum or 

difference 

1 

V + 

V 

vector 

Matrix sum or 

difference 

1 . 

* 

M + 

* 

M 

j 

matrix 


4 . 1 . 1 , 1 Some Exceptions 


1. Exponentiation is right-to-left. 

Thus / 

a) 

B C 

A**B**C = A = A**(B**C) 

• 

b) 

SIN (X) 2 = (SIN (X) ) 2 , and not 

SIN(X 2 ) 


2.- Division is right- to-left . However, vector and 

matrix expressions may never appear as denominators 
in a quotient. 

a) A/B/C = A/tB/C) = A C/B 

b) A/B X/C Y/D = A/(B X/(C Y/D) ) = A C Y/B X D 
C) V/A/B = V/ (A/B) = B .V/A 

d) -V/A/R is illegal 

e) (V/A) R is OK 

f) V/R.V is OK 
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(See HAL specification document for more detail on exceptions.) 


4.1.1. 2 Product Operands 

Note that in the product forms 


s 

S 

S V 

- * 
S M 

V 

* 

M 

* 

* 


* 

* 


M 

M 

V S 

M S 

M 

V 


the multiply operator is implied from the "logical adjacency" 
of the operands. In HAL all such operands must be easily 
distinguishable. 


4. 1.1. 3 Sum and Difference 

-The operands must agree in the number of scalar 
components as well as in type (S, V or M) . In the form V- + V, 

the vector operands must be of the same, length.- In the form 

* * ’ 

M + M, the matrix operands must have the same row— column -dimen- 
sionality. 

4. 1.1. 4 Vector Cross Product 

The operation, V * V, is defined in HAL only for 
vector operands of length three (3) . 
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-4. 1.1. 5 


• a) 


b) 


c) . 


d) 


e) 


Vector-Matrix Products 

V.v Vector inner (dot), product is computed as 
[1 x n] [n x 1] -> [lxl], 
a scalar. 

i 

Note: In arithmetic expressions, the character 

will be taken as a part of a literal if 
the context allows this interpretation. Thus, 
for example, 0 ,2 V is interpreted as U(0.2 V) 
and not as u . (2 V) . 

V V Vector outer product is computed as 

[n x 1] [1 x m] ■+■ [n x m] , 

an n x m matrix. 

* 

V M Vector-matrix product is computed as 

II x m] . [m x n]->[l x n] 
an n-dimensional vector. 

.M V Matrix-vector product is computed as 

[m x'n] ]n x l]^-[m x 1] 
an m-dimensional vector. 

* * 

M M Matrix-matrix product is computed as 

[m x n] [n x p] -J- [m x p] , 
an m x p matrix. 
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;4.i. 

2 Some Examples of Arithmetic 

Expressions . 

- 

MATHEMATICAL NOTATION 

' HAL EXPRESSION 

l. 

ab 

A B 

2. 

a(-b). 

A (-B) or -A B 

3. 

- (a + b) 

- (A + B) 

4. 

x+2 

a 

A X+2 

5. 

% 

x+2 

a c 

A X+2 C ■ 

■ 6. 

ab/ cd 

A B/C D ‘ . 

7. 

,a+b,2.5 v 

c 

( (A+B) /C) 2 ’ 5 

8. 

a 

. b 

1+ (2.7 + c) 

A/ (1 + B/ (2.7 + ( 

9. 

(v T y) M _1 (v+y) 

(V.Y) M" 1 (V+Y) 

10. 

T T 

a (^ v ) (v X w) 

A (Y V)- T (V * W) 


4.1.3 Characters and Arithmetic Expressions . Character 
strings may be joined and/or combined with arithmetic expressions 
to produce messages or data printout, using the concatenation 
operator (CAT or | | ) . Thus , 


'NAUTICAL 


i i i 


'MILES' becomes NAUTICAL MILES 


and 


X + 5 | | 'N.M. 1 becomes (value) N.M. 


where (value) is the numerical value of X +5. 
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Note that, in effect, con'catenation converts numerical data 
-to characters,' These "character expressions" can then be 
output using the WRITE I/O command. 


4.1.4 Array Expressions . Within HAL M only arrays of 
scalars are considered. Array expressions yield array results 
and may involve a combination of scalar and array operands. 
Scalar-scalar product, quotient and sum or difference are defined 
-as array operations where at least one operand is an array. The 
indicated operation is performed on a sequential element— by— 
.element basis. 



then 

a) [A]/5 = 


b) [a] / [B] = 
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4.2 Assignment Statements 

A HAL statement is an order to perform some action, and a 
HAL program is composed of a series of statements of various 
kinds. The fundamental statement is the assignment statement, which 
assigns a value to one or more variables. A simple assignment 
statement takes the form 

Label: Variable = Expression; 

where Label: is optional. A single assignment statement can set 
several variables; e.g. 

ABLE: A, B , C = 5; 


M, N, P = Q; 

Note that, in general, the dimensions of the left side variables 

and the right side expressions must be the same. Exceptions are 

made for "zeroing" and assigning arrays.' Thus, 

A = 0; 

B = 0; 

* 

C = 0 ? • 

[D] = 0; 

are all valid "zeroing" statements in HAL. In the case of an 
array, - a scalar expression assigns the scalar value to every 
element of the array; e.g. 

[A] = 5; 
or 

[B] = X 2 + Y; 

If there is more than one left side variable then the array 
dimensions of all must be identical. 
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4.2.1 Conversion Functions 

It may be convenient to form a vector, matrix, or array 
of scalars, from its components. In HAL^, three conversion 
functions are provided: VECTOR (list) , MATRIX ( list) , SCALAR 

(list) . These functions may be applied to mixed lists of 
scalars, vectors, matrices and arrays. The functions may be 
thought of as constructing -a one-dimensional list of all the 
included elements. Vector, matrix, and array list-elements 
are equivalent to lists of their components. Matrices are 
unraveled by incrementing "right-most" index first -(i.e., 1,1,1; 
1,1,2; l,l-,3; .1,2,1; 1,2,2; ’etc.). 

The resulting vector, matrix, or array is filled, respectively, 
element-by-element. from the list. 

a) If the list consists of only one scalar, all the elements 
will be assigned a value equal to this single list 
element. The desired dimensions (or shape) are indicated 
by subscripts. Thus, for example, 

VECTORg (0) 

MATRIX 2 3 (5) 

SCALAR (A) 

J f V / J 

The default dimensions will be applied to VECTOR and 
MATRIX if subscripts are not supplied. 

b) If the list' consists of one vector, one matrix or one 
array the resulting forms can be quite complex. See 
Sec. 9. '2, Appendix F, and Sec. 6 of the HAL specification 
document . 
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c) If the list consists of several entries, VECTOR and SCALAR 
lengths will be equal to the number of elements in the 
list. MATRIX row and columns will be equal to the square 
root of the number of list elements (presuming an integral 
value) unless otherwise specified. The number of list 
entries must be compatible, thus. 

VECTOR(A 2 ,B 2 ,C 2 ,D,6#E) 

MATRIX (X,Y,Z) 

SCALAR ( A, X,M) 

Note: 6#E, indicates six entries of the quantity E 

(i.e., E,E,E,E,E,E) . 

4. 2. 1.1 Some Examples 

a) X = VECTOR (1,A,0) * VECTOR(l) 

b) DECLARE P ARRAY (15); 

LOOK: [P] = SCALAR 15 (5#A,5#B,5#C) ; 

c) RE = MATRIX 3 3 (X,Y,‘z)RS; 

4.3 Control Statements and Relational Expressions 

4.3.1 The GO TO Statement 

The GO.. TO statement in HAL is a simple unconditional transfer 
to a labelled statement. The general form is: 

GO TO I; 

where L is the label of a statement elsewhere in the program. It 
specifies that the statement to be executed next is the one identi- 
fied by the label and that control is to be transferred to that 
point in the program. 
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-4.3.2 The IF Statement . The IF statement provides the capability 
to 'change the sequence of statement execution on the basis of 
what happens during execution of the program. The general forms 
are: 


or 


IF L THEN S 
- c 


IF L THEN B ELSE 3 
c 

where denotes a logical condition or set of logical conditions , 
S may be any executable -statement except END. B may be any 
executable statement except IF- or END. For example r 


IF X<5 THEN GO TO AGAIN; . 
or IF X<5 THEN ABLE: GO TO AGAIN ; 

ELSE IF X<10 THEN GO TO TRY; 

The IF statement format requires that an ELSE be preceded by 
an IF and not by another ELSE. As a result , the execution of 
a statement following ELSE occurs only if the logical condition 
associated with the nearest preceding IF is false. 


4.3.3 Logical Conditions . A logical condition may be expressed 
as an arithmetic comparison expression, for example 

• IF M = N THEN . . . 


or 


IF X<2 .064 10 8 Y THEN . . . 
or 


IF A+B = V.W THEN . . . 
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scalar- 


4. 3.3.1 Comparison Expressions. With -in hat. . 

— M' 

quantities may be compared using the following relational operators. 


Symbol 


< 

> 


<= 

>= 

~l< 

~]> 


' ' Operation 

equal 
not equal 
less than 
greater than 
less than or equal 
greater than or equal 
not less . than 
not greater than 


Vectors, matrices and arrays are restricted to 


Symbol Operation 

- - equal 

not equal 

For the operator =, the comparison is true if and only if all 
the corresponding elements are equal. For the operator the 

comparison is true if and only if any of the corresponding 
elements are not equal. 
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4. 3. 3. 2 Sets of Logical Conditions , Logical conditions can be 
combined, using the logical operators NOT (i, A ) , AND (&) and 
OR (|), into complex sets of logical conditions; the final 
result of any condition or set of conditions must be a single 
true or false answer. Thus, for example, 

* 

£ * 

IF X>5 AND Y<A AND M=N THEN . . . 

IF NOT (X<=C OR X>=C + DELTA) THEN . . . 


4,3. 3.3 The Order of Operations . In order to avoid ambiguity, 
the following rules are established when evaluating logical sets 
of relational expressions. 

a. NOT (*"),~) must be followed by a relational expression (or set 
of expressions) within parentheses. 

b. Relational expressions are evaluated before AND and OR. 

c. AND is applied before OR. 

Thus; 

1. A>5 AND B>6 means (A>5) AND (B>6) 

2. NOT (A> 5 AND B>6 OR C<7) 

means NOT ( (A>5 AND B>6) OR C<7) 

4.4 Examples - I 

In this section two examples illustrate the use of the 
HAL^ as presented thus far. 
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•4.4.1- INTERSECTIONS 

- „ ' -Find the intersections defined by the line, 

V 

' ax + by + c = 0 

arid the circle, 

(x - p) 2 + (y - q) 2 = p 2 

where a, b, c, p, q, r are parameters. (This problem is adapted 
from An Introduction to 'ALGOL 60 , C. Anderson, Addison-Wesley , 
1964) - .. ' 

HAI* m Program - 

. • INTERSECTIONS : PROGRAM;. ’ 

READ (CARDS) A,B,C,P,Q,R; 

C COMPUTE DISTANCE FROM LINE TO CENTER OF CIRCLE 

O CAN BE DERIVED BY TRANSLATING ORIGIN TO (P , Q) 

2 2 

• • . F = A + B ; ' ’ 

. D = (A P + B Q + C) /SQRT (F) ; 

IF D 2 >R 2 THEN GO TO NOjSOLVE; /*NO SOLUTION*/ 

Z - (A 2 Q - A B P - B C)/F; 

U = (B 2 P - A B Q - A C)/F; 

C WHERE (U, Z) IS THE POINT OF INTERSECTION BETWEEN 

C THE GIVEN LINE AND AN ORTHOGONAL LINE THROUGH CP/ Ql 

2 2 

DELTAX = -B SQRT (R - D )/SQRT(F); 

DELTAY _= (A/B) DELTAX; • 

XI = U - DELTAX; /* INTERSECTION #1*/ 

Y1 — Z - DELTAY ; 
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X2 = U + DELTAX; /* INTERSECTION #2*/ 

Y2 = .Z + DELTAY; 

WRITE (LISTING) ' Xl = ' ||X1, 'Yl = ’||Y1, ' X2 = ' [jx2, 

* Y2 = * |' | Y2 ; 

GO TO FINISH; 

NO__SOLVE: WRITE (LISTING) 'NO SOLUTION 1 ; 

' -FINISH: CLOSE INTERSECTIONS; 

4 . 4 .2 • TRANSFORM 

Given the three-dimensional vectors w, x, y, z, form 
an orthonormal coordinate set from w, x, y and express on 
this set. 

HAL^ Program 

1 TRANSFORM: PROGRAM; 

READ (CARDS) W, X, Y, Z; 

.:C‘ USE GRAM-SCHMIDT TO FIND ORTHONORMAL SET 
’ Al = UNIT (W) ; 

A2 = UNIT (X - (X. Al) Al) ; 

A3 = UNIT (Y - (Y.Al)Al - (Y.A2)A2); 

M = MATRIX (Al , A2 , A3); ^TRANSFORMATION MATRIX*/ 
Z*NEW = M Z; 

C ’ FIRST ZOLD, THEN ZNEW 
WRITE (LISTING) Z, ZNEW; 

CLOSE TRANSFORM; 
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5. Subscripted Variables and DO Statements 
5.1 Subscripts 

The elements of vectors, matrices and arrays within 
HAL^ may be referenced by appropriate subscripting. 

The first component of a vector or a one-dimensional 
array, is given the subscript 1, the second 2, etc. up to the 
total number of elements. Thus for a 9 element- vector, i.e., 
DECLARE V VECTOR (9); 
the components may be written as, 


V, V, 


V. 



A matrix or two-dimensional array may be thought of as 
being composed of horizontal rows and vertical columns. The 
first of the two subscripts refers to the row number, running 
from 1 up to the number of rows, and the second to the column 
number, running from 1 up to the number of columns. For 
instance, a matrix of two rows and three columns would 
require the declaration 


DECLARE B MATRIX (2,3); 


and the elements could be referred to by writing: 


B l,l B l,2 B 1 , 3 B 2,l B 2 , 2 B 2,3 


A three-dimensional array may be thought of as being 
composed of planes, each plane containing rows and columns. 
This interpretation depends somewhat on the purposes of the 
computation. The reference to an element would simply be, 
for example, 2 1 ' 
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5.1.1 Subscript Expressions 

a 

A subscript expression can be any ■ arithmetic expression 
..resulting in a scalart value. Before being used as a 
subscript the value is algebraically rounded to the nearest 
integer. Some examples are: 
a) b 

. • 3X+Y,-3Y+X 

- b ) Ch • 

• B .I 

C) D (A+B) J**2 

.5,1 .-2 Subscript Range Expressions: Partitions 

HAL provides two subscript range expressions which 

permit the partitioning of vectors, matrices and arrays; the 

• forms are: 

. .. ‘ ^P TO Q 

A R AT S 

where P, Q, R, S may be literals, variables or expressions. 


5. 1.2.1 The "TO 1 ' operator 

The TO-operator is used to reference, or partition 
a set of elements by specifying the subscript (or index) 

•limits. For example: 

t For subscript variables which take on only integral values, 

some run-time efficiency may be gained' by declaring these variables 
to be integers. The HAL integer data declaration is 
presented in Part III of this Guide. 



a) TQ 4 partitions a larger vector, V, and selects the 
first four components to fopm a vector. 

k 

b) Mf p 1 TO 0 Pa^^t ^ 0113 a larger matrix and selects 

r W j 

the first P rows and the first Q columns. 

J 

* i 

c) A* 3 TQ 5 partitions a larger matrix and selects, all 
rows, columns 3,4,5. The asterisk used in this- context . 
means "all of the particular index". 

d) tA]p (p+2) X J P art i t i° ns a three-dimensional array 

of scalars. The result is a one-dimensional array of 
three elements. ' 

■e) [Aj jJ partitions a one-dimensional array ’from the . . 
J "to the end". The number sign, used in this context 
means "to the end of the subscript range" ^ 


5.1.2. 2 The "AT" Operator 

.The AT-operator is used to reference/ or partition^, 
a set of elements by specifying the index size (or length], and 
the beginning value . For example : 

k * ‘ 

a ) M 4 AT 5 4 AT 7 Pa^it ^ 0113 a larger matrix and - 

selects a 4x4 sub-matrix? i.e., rows' 5, 6 , 7, - 8 , and 
columns 7, 8 , 9, 10. , 


b) V 


3 AT 2 


partitions a vector and selects three components 


starting with the second component. 
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5. 1.2. 3 ' An Application of Partitioning 

• .Let E be a 9x9 covariance matrix involving errors in 
the estimation of aircraft position, velocity and ground beacon 

•- i 

1 

position. Find the current rms-. error in aircraft position. 

The matrix E is declared by the statement 

• DECLARE E MATRIX (9,9); 
and the rms error is directly 

RMS_POS = SQRT (TRACE (E x TQ 3 - ^ TQ 3 )); 

Of .course, this presumes that the covariance terms in position 
occupy the upper' left corner of the matrix. 

5.2 DO Statements 

The Do statements are used to define groups of HAL -statements 
-which are to be treated as a single unit. There are four 
statements : 

. a) DO.-. .END 

b) DO WHILE 

c) DO .FOR 

d) DO CASE 

5. 2.1 DO . . . END 

■ The DO... END statement simply serves to block out or group 
a set of statements. Its most frequent application is as an 
alternative within an IF statement. - For example: 
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IF A>5 THEN DO; 


ABLE : X = Y + '6 7 
BAKER; Z ~ X Y; 

IF Z>10 THEN Z = 10; 

END; 

X = Y - 6; 

All of the statements enclosed within the DO... END group will 
be executed if A>5. If A^5 then control will pass over the entire 
DO... END group and X = Y - 6 will be executed. 

5.2.2 DO WHILE ' ' . 

The DO WHILE statement provides a means of executing a 
DO... END group as long as a logical condition (or set of conditions) 
is satisfied. The general form is 

DO WHILE L ; 

■ c 

statements 
- END;* 

where L c denotes the logical condition (s) as defined in Section . 
4.3.3. As an example/ consider the computation of a square. root 
(based on an example in "A Guide to ALGOL Programming"/ McCracken/ 
Uohn Wiley, 1962). Using the Newton- Raphson iterative technique, 
to find the square root S, of a number A, the formula 
S - 1/2 (|, + S’) 

may be applied repeatedly. S’ is the previous value of S. In 
this illustration the initial guess will be 1 and the number of 
iterations will not be a factor. Thus, 
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BLAST = 1; 

6 

DO WHILE ABS (S-SLAST) > 10 S; /CONVERGENCE*/ 

S = (A/SLAST + SLAST) /2 ; /*CRITERION*/ 

SLAST = S; 

END? 

Note that, in effect, the logical condition is within the DO WHILE 
loop and is reevaluated each time before execution of the group 
of statements. When ABS (S-SLAST) <_ 10 ^ S, control will pass to 
the statement following END. 

-5.2.3 DO FOR 

The DO FOR statement provides a means of executing a DO... END 

group repetitively for a list of values of a control variable as 

well as for a logical condition. The list may contain a series 

of values and/or ranges of values. The general form is: 

DO FOR VAR = A , B , . . . ; C TO D BY E ... WHILE L c ; 

f 

where A, B, C, D, E may be scalar- expressions .and VAR is a 

scalar^ variable. "BY E" and "WHILE L " are optional. 

The control variable, VAR, is initially set equal to the -first 

element of the list, i.e., A, and then takes on successive values 

from the list on each pass through the group of statements. 

Between C and D, VAR is incremented by the value of E until VAR 

exceeds D (or is less than D, if the increment is negative) . VAR 

is evaluated and compared to D prior to each pass. Note that if 

VAR = D then the statements will be executed for that value. The 

logical condition L c , if present, jpust be true before any- pass is 

initiated. It -is -processed after, the control variable VAR is 

incremented and evaluated. 

. / 

f or integer 
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If BY E is not provided , the increment is taken to be +1. 

Note that the expressions 8,0/0, and E are not within the loop 
structure of the DO FOR statement and are evaluated only once in 
the DO FOR statement at the beginning. If they are then modified 
within the loop, this will not affect their values in the DO state- 
ment. Two examples follow: 

1. Evaluate y = - log |x| for the following values of 

x: - 2 , -1.2, 1 to 10 by 2 ' s , 100. 

Thus , 


2 . 


DO FOR X = -2, -1.2, 1 TO 10 BY 2, 100; 

Y = X 3 - LOG (ABS (X) ) ; 

WRITE (LISTING) X,Y; 


END; 


_ X 

Evaluate e for x = .01, 1 , 1, 10 using 20 terms of the 

infinite series. 

2 3 

+ . . . + 

Two DO FOR loops will be used; one to specify the values 
of x, and the other to sum the terms in the series: 


2 3 

x t v , X , X 
e = l + x + Tr + 3T 


DO FOR X = .01, ‘.I, 1, 10; 

SERIES =1; /* INITIAL CONDITION */ 

TERM =1; 

EXP: DO FOR N = 1 TO 20; 

TERM = TERM X/N; 

SERIES = SERIES + TERM; 

END EXP; 

WRITE (LISTING) X, SERIES; 


END; 
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5.2.4 DO CASE 


The DO CASE statement provides a means of transferring 
control to any one of a number of statements, depending on 
the value of a scalar expression. 

• Suppose it is necessary to transfer to one of five 
statements based on the value of N : the general form would 


DO CASE N; 



END; 


CASE 1 
CASE 2 
CASE 3 
CASE 4 
CASE 5 


where S-^to may be any executable statements , including 
other DO CASE statements. 

If N is an expression, its value is rounded to the 
nearest integer. A value of 1 specifies the first statement 
(CASE 1) , 2 the second, and so on. The compiler will 
issue an error message if the rounded value of N is 
negative, zero or greater than the number of statements 
provided. 


t or integer 

tf The compiler supplies these CASE indicators ,* they are not 
programmer- supplied comments. 




The DO CASE statement can be used most effectively as 
a multi-decision point, allowing combinations of specific 
computations and transfers of control. For example; 

CHOICE: DO CASE N; ' . ■ 


GO TO Al; 

CASE 

1 

GO TO A2; 

CASE 

2 

GOTO Bl; 

CASE 

3 

DO; 

CASE 

4 

A = 3; 


- 

GO TO Cl; 



END; 



DO CASE P; 

CASE 

5 

-A = 4; 

CASE 

1 

GO TO C2 ; 

CASE 

2' 


END; 

IF A > 5 THEN GO TO Dl; CASE 6 
ELSE GO TO D2; 

GO TO Fl? CASE 7 

END CHOICE; 


5.3 Examples - II 

Two examples are included in this section as further- 
illustrations of HAL^ .programming. 
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5.3.1 MEANS 


Given n numbers , x 2 

a) the arithmetic mean 

a '= (x. + x„ +. 
m 1 2 . 

b) the geometric mean 


= n/x l x 2 ' 

c) the harmonic mean 


. . x n , compute 
+ x n )/n, 


x_ 


n 


h '== l/x 1 + 1/^2 +• • «+ 1/x , 

b 

(This problem is adapted from An Introduction to Algol 60 , 
C. Anderson, Addison & Wesley, 1964.) 


MEANS: PROGRAM; 

• DECLARE X ARRAY (100); /* ALLOW UP TO 100 NUMBERS */ 
■READ (CARDS) N, [X ] ^ TQ N ; 

■' P = PRODUCT ( [X ] 1 ^ N ); 

"ZER0_CHECK: IF P = 0 THEN WRITE (LISTING) 

’HARMONIC MEAN DOES NOT EXIST’; 

• -ARITH_MEAN: AM = SUM ( [X] x _ TQ }/N; 

WRITE (LISTING) ’THE ARITHMETIC MEAN HAS THE 

VALUE' i [AM; 

GEO_MEAN: IF P<0 AND CEILING (N/2) - N/2 = 0 
THEN DO; 

WRITE (LISTING) ’GEOMETRIC MEAN IS UNDEFINED 
FOR NEGATIVE PRODUCT AND EVEN NUMBER OF TERMS ’ ; 
GO TO HAR_MEAN; 

END; 

C CEILING WILL ROUND UP TO NEAREST INTEGER 
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GM = SIGN CP) CABSCPJ) 1//N ; 

' WRITE (LISTING) * THE GEOMETRIC MEAN HAS THE VALUE* 

| | GM; ‘ ’ - 

HAR_MEAN: .IF P = 0 THEN GO. TO FIN; 

HM = SUM(1/[X] 1 TQ N ); 

WRITE (LISTING) 'THE HARMONIC MEAN HAS THE VALUE* 

'! 1 HM; 

FIN: CLOSE MEANS; 

5:3.2 FREQ RESPONSE 

Find the sinusoidal amplitude-frequency response, over a 
significant, frequence spectrum, for the transfer function 

G(s) = r— — — - — — , where x, > x 9 

• (sx 1 ) (st 2 +1) 

FREQ_RESPONSE: PROGRAM; 

READ (CARDS) K, TAUl, TAU2 ; 

WRITE (LISTING) *R =* | |k, * TAUl=’ [ [TAUl, *TAU2=* ] |TAU2; 

WRITE (LISTING) 'RAD/SEC*, 'AMPLITUDE'; /*HEADINGS*/ 

T1SQ = TAUl 2 ; 

T2SQ = TAU2 2 ; 

C FIND SPECTRUM LIMITS IN POWERS OF 10 

C ASSUME ALL FREQUENCIES TO BE BETWEEN 10 **-10 AND 10**10 

DO FOR -I = 10 TO -10 BY -1 WHILE . 1/TAUl < 10 1 ? 

END; /*THIS LOOP WILL FIND LOWER LIMIT OF SPECTRUM*/ 
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DO FOR J = =10 TO 10 WHILE 10/TAU2 > 10 J ; 

END;' /*THIS LOOP WILL FIND UPPER LIMIT OF SPECTRUM*/ 
SPECTRUM: DO FOR K = .1 TO J; /*STEP THROUGH SPECTRUM*/ 

W = 10 K ; 

TABLE: DO FOR OMEGA = W TO 9 W BY W; /* INCREMENT 

FREQUENCY*/ 

MAGN= K/SQRT (TAUl“ OMEGA 2 + l)SORT(TAU2 2 OMEGA 2 + 1) 
WRITE (LISTING) OMEGA, MAGN; 

END TABLE; 

END SPECTRUM; 

FINISH: CLOSE FREQ_RESPONSE ? 

5. 3 . 3 " FILTER 

Find the step response for a digital filter represented 
by the difference equation: 

Aq = K[B 0 + J P K B k ] +| Q k A k 

where A^, are current values of A and B, and A^, B R are K 

samples old. 

FILTER: PROGRAM; 

DECLARE VECTOR (20) A / B,P / Q; 

. /* ALLOW FOR UP TO 20 PAST SAMPLES*/ 

/*AND 20 COEFFICIENTS*/ 

READ (CARDS) K, N, TQ N , M, Q ± TQ M ; 

/*P AND Q ARE COEFFICIENTS*/ 

READ (CARDS) S; /* NUMBER OF DESIRED SAMPLE PERIODS IN 

RESPONSE*/ 
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HEADINGS: WRITE (LISTING) ’SAMPLE', 'OUTPUT RESPONSE'; 

• BZERO = 1; /‘SET UNIT- STEP*/ 

Ap rp 0 M = 0; /* ZERO MEMORY*/ 

B 1 TO N ° 7 
DO FOR I = 0 TO S; 

AZERO = K (BZERO + P i T0 N ‘ B 1 TO N + TO M ‘ A 1 TO M) ; 

/*USE DOT PRODUCT*/ 

WRITE (LISTING) S, AZERO; 

- A 1 TO N = VECTOR (AZERO, Ap TQ (N-1) ) ? /‘INDEX OUTPUTS*/ 

B 1 TO M = VECT0R (BZERO, Bp TQ (M _ a) ) ; /‘INDEX INPUTS*/ 

END; 

FINISH: CLOSE FILTER; 
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6, Subroutines : Functions and Procedures 

It often happens that some basic computation is required 
at a number of places in a- program- It is possible, of course, 
to write out the necessary statements each time they are 
needed, but doing so wastes storage space and is conducive 
to errors. It is therefore desirable to be able to write 
the statements once and refer to them .as required. Functions 
and procedures provide this capability. 

6.1 Functions 

HAL offers a number of built-in functions (see Appendix 
B) to compute such quantities as trigonometric functions, 
logarithms , vector absolute values , matrix determinants 
and inverses, etc. In order to use these functions, it 
is necessary only to write their names where they are needed, 
entering the desired expression (s) for the argument (s) . 

For example, 

X = A SINH(Y) ? 

assigns the product of A and the hyperbolic sine of Y to 
the scalar X. Y may be a simple name or an expression. 

A more complicated example might be 

A = ABVAL (X*Y) TRACE (M+N) ABS (P LOG(S)); 

The HAL programmer need not be confined to the HAL 

built-in functions, but can develop and use programmer- 

defined functions. Suppose it is desired to make the 

2 

computation of one root of the quadratic equation ax +bx+c = 0 
into a function. The function’s arguments are the coefficients* 
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its value is the root. Thus by simply writing the function 
name , as in , 

A = Y 2 R00T1 (E,F,G) ; 

.control is transferred to the function, its value computed 

2 

and control is returned. The product of Y and the value 
of the function R00T1 is then assigned to A. Note that 
'the coefficient arguments may be names and/or expressions; 
thus ' 

A = Y 2 ROOTK-E 2 , LOG(F), G/E); 

* * • n O 

would mean that the coefficient of x^ is the value "E , the 
•coefficient of x is the value LOG (F) , and the constant 
term is G/E. 

The function name with its list of arguments may be 
considered the calling statement, or "function reference". 
The function itself must be defined elsewhere in the 
program by a FUNCTION statement and accompanying function 
body, or block of code. The FUNCTION statement names 
the function, names the parameters used within the function 
and specifies the data type of the function result; for 
example 

R00T1 : FUNCTION (A,B , C) SCALAR; 

Using HAL^, only functions resulting in vectors 
or matrices need specify the function data type. If no 
. specification is provided the function is presumed to be a 
scalar; e.g. R00T1 ; FUNCTION (A’/B , G) ; . Although a function 
jmay accept an array as input data, HAL does not permit 
the specification of an array data-type function. 
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•The body of the function consists of the operations 
necessary to compute its value. For the example being 
considered, the complete function definition might appear as: 
R00T1 : FUNCTION (A, B , C) ; 

RETURN (~B+SQRT(B 2 -4 A C) )/ 2 A; 

t 

•CLOSE R00T1; 

The RETURN statement terminates the execution of a function. 

The function body must have at least one' RETURN statement. 

The "returned" expression must agree with the function data- 
type; in this case a scalar. The above function might be 
organized in other ways, too; for example, 

R00T1: FUNCTION (A, B, C) ; 

T = B 2 - 4 A C; 

U = -B+SQRT (T) ; 

V = ’ U/2.A; 

RETURN V; 

CLOSE ROOT1 ; 

In this example, T, U, V are introduced for programmer 
convenience. These are local variables, i.e., local to the 
defined function and unknown outside the function ibloek. Local 
variables are discussed further under Scope of Names in 
Sec. 7.1 . The declaration of local variables follow th'e 
same general rules for variable 'declarations as described 
in Sec. 3.1.4. 

The variables A,B,C are called formal parameters; that 
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•is, they do not exist in of themselves and are no more than dummy 

.'variables that indicate what to do with the actual parameters in 

.the function reference. The appearance of formal parameters in 

the function statement serves as their declaration; e.g. ; , 

* . 

FUNCTION (A, V,M) . An explicit declaration is necessary if other 

than default characteristics are required; e.g., | 

* 

E: FUNCTION ( A, V ,M ) ; 

DECLARE V VECTOR (6);' 

DECLARE M MATRIX (6,6); 

© 

It is important to emphasize that the data types and dimensions 

provided' in the function reference must match, correspondingly, 

the data types and dimensions of the formal -parameters declared 

in the FUNCTION statement and function body-; - - 

The formal parameters in a FUNCTION statement cannot be 

assigned values; i.e., they may not appear on the left hand side 

of an assignment statement. The actual parameters are expressions 

involving actual variables that have been declared elsewhere in 

the program. In the ROOTl example above, the formal parameter 

2 

A would be replaced in the function body by E , the formal para- 
meter B by LOG(F) and the formal parameter C by G/E. . 

A function accepting a particular data type will usually 
accept an array of that type also. For example: 

[A] = Y 2 ROOTl ( [E] , [F3 , [6] ) ; 

Presuming linear arrays, this assignment statement would be 
executed as follows : 

A x = Y 2 ROOTl (E x ,F 1 ,G^) ; 

A 2 = Y 2 ROOT1(E 2 ,F 2 ,G 2 ) ; 


etc . 





6.1.1, Some Examples 

1) Compute E = 5 ; I.Wta-;, 

x (e • -1) 

as a function. ■' 

E : - FUNCTION(X) ; 

B = EXP (1 . 432/K X) -1; 

RETURN (1/X 5 B ) 7 
CLOSE E; 

2) Define a function to compute 

if x < 0 
if x =. 0 

1 (1 - /a. a + x 2 ) if x > 0 

" • |a| 

where y, a are six-dimensional vectors. 

Y: FUNCTION (A,X) VECTOR ( 6) ; ; 

DECLARE A VECT0R(6) ; 

IF X = 0 THEN RETURN 0; 

B = SQRT (A. A + X 2 ); /*B IS A LOCAL VARIABLE*/ 

IF X < 0 THEN RETURN {1 + B) UNIT (A) ; ‘ ’/ 

ELSE RETURN (1 - B) UNIT (A) ; _ . 

CLOSE Y; 

Note that the formal parameter A required explicit declaration 
because the desired vector dimension was not the default. 


^(1 + /a. ei + x2) - 


a 


y(a,x) = < 0 
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because the desired vector dimension was not the default. 

6.2 Procedures 

■ A procedure is like a function in that, once invoked, 
control is transferred to the procedure body, computations are 
performed and results are made available to the caller. Where 
a function is used simply by writing its name, and a particular data type 
is associated with the function result, a procedure must be 
called with a CALL statement and may provide many results of 
different types. The CALL statement has the form: 

CALL Name (A, B ,C) ASSIGN (T , U ,V) ; 

where Name is the name of the procedure. A, B, and C may be names 
and/or expressions; T, U, V must be names only. A, B, and C 
provide the "input" data, to the procedure and the procedure 
results ("output”) are assigned to T, U, and V. 

As an example, suppose that instead of desiring one-root 
of a quadratic, as illustrated in the previous section, two roots 
are necessary. The 'CALL statement might be 

CALL R00T2 (E 2 ,LOG(F) ,G/E) ASSIGN (XI ,X2) ; 
and the procedure definition would consist of a PROCEDURE statement 
and a procedure body, thus 

ROOT 2 : PROCEDURE (A, B ,C) ASSIGN (P ,Q) ; 

T = SQRT (B 2 - 4 A C) ; 

P = (— B + T)/2 A; 

Q = (“B T)/2 A; 

'CLOSE ROOT 2 ; 
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■. As in the case of a function. A, B and C are formal parameters 

(dummy variables) representing the "input" data. These variables 
cannot be assigned values; they cannot appear on the lefthand 
side of = . The assign parameters, i.e., P, Q above, are also 

formal parameters in that they only stand for the actual - assign 

i 

I 

parameters (XI, X2) in the CALL statement, but they can be assigned 
as shown in the example. Since P and Q are in fact XI and X2, 
the assignment statements actually place new values into XI, X2 
at these points in the procedure body. Interestingly- enough, 
since P and Q may appear on either side of =, data can be input - 
-to a procedure via the assign parameters as well as the call 
parameters. . ■ ' ' ' - 

The declaration of formal parameters and local variables 
follow the same rules as for functions. Note that no 'data type 
is associated with a procedure name and therefore a procedure 
name must be called rather than simply used. A procedure may be 
■ terminated and control returned to the caller by reaching a 
RETURN or CLOSE statement. 



6.3 Examples 


III 


Two examples are included in this section as further illustra- 
tions of HAL m programming. . ■ 

6.3.1 PHASOR ‘ S 

, Write a procedure to transform a complex number from 

rectangular to polar form with the CALL statement '■ 

CALL PHASOR (A, B) ASSIGN (M, PHI); 

where the rectangular form is a + ib, and the polar form is me 1 ^. 

PHASOR: PROCEDURE {XREAL, XIMAG) ASSIGN (MAGN, PHASE ) ; 

MAGN = SQRT (XREAL 2 + XIMAG 2 ); 

IF MAGN = 0 THEN DO; . 

WRITE (LISTING) ’PHASOR UNDEFINED' 

MAGN - -1; /*-l IS USED TO INDICATE*/ 

PHASE = -1; ^UNDEFINED CASE*/ • 

RETURN; /* RETURN FROM PROCEDURE*/ 

END; 

C KEEP ARCTAN COMPUTATION LESS THAN 45 DEG. 

IF ABS (XREAL) >= ABS (XIMAG) THEN 
DO; ..... 

' IF XREAL > 0 -THEN PHASE = ARCTAN {XIMAG/XREAL) ; 

.ELSE PHASE = PI + ARCTAN (XIMAG/XREAL) ; 

■ /*PI IS A RESERVED HAL CONSTANT*/ 

RETURN; . _ 

END; 

IF XIMAG > 0 THEN /*AT THIS POINT ABS (XIMAG) > ABS (XREAL*/ 
PHASE = PI/2 - ARCTAN (XREAL/XIMAG) ; 

ELSE PHASE = 3 Pl/2 - ARCTAN (XREAL/XIMAG). ; 

CLOSE PHASOR; 
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6.3.2 INTEGRATE 


Integrate the .differential equation 


= t p 2 + t 2 p 


from 


t^ to t 2 , where pCt-^ = Pj 


Use the Runge Kutta technique, and an integration step of At. 

INTEGRATE: PROGRAM? 

READ (CARDS) PI, Tl, T2, DELT; 

T = Tl; 

P = PI;' /*INITIAL CONDITIONS*/' 

C INTEGRATION LIMITS 

LIMITS: DO FOR TLIM = Tl TO T2 BY DELT;, 

I 

C RUNGE_KUTTA REQUIRES FOUR PASSES FOR EACH STEP' 

FOURJP ASSES: DO FOR 1=1 TO 4 ; 

2 2 

DIFFJEQUAT: PDOT = T P + T P; 

CALL RUNGE_KUTTA (PDOT, Pi , TLIM, DELT , I) ASSIGN (P ,T) ; 
END FOURJPASSES; ' 

P1=P; /‘INITIALIZE FOR NEXT TIME STEP*/ 
WRITE (LISTING) T,P; 

END LIMITS; 

- ■ CLOSE INTEGRATE; 

C RUNGE__KUTTA PROCEDURE 

RUNGE_KUTTA : PROCEDUPJE (YDOT , YIMT , XINIT , DELX, J) ASSIGN‘.(Y ,X).; 

■f 

OUTER; 

DECLARE K ARRAY (4); 


f See Section 7.3 for discussion of the OUTER statement. 


6-9 




K_ = DELX YDOT; 

U 

PASSES: DO CASE J; /*EACH CASE IS A PASS*/ 

DO; 

X = XINIT + DELX/ 2 ; 

Y = YINIT + K T / 2 ; 

XJ 

END; 

Y = YINIT + K,/2; 

U 

DO; 

X = XINIT + DELX; 

Y = YINIT + K-,; 

u 

END; 

C FINAL RESULT 

Y = YINIT + SUM ( [K] )/6 ; 

END PASSES: 

i 

CLOSE RUNGEJKUTTA; 

Some comments on this example: 

1) In the RUNGE_KUTTA procedure, YDOT, YINIT, XINIT, DELX, 
j, Y and X are formal parameters. 

2) The array K is an actual local variable. 

3) Note that data is '’remembered" by the procedure from one 
call to the next; values of X and the elements of the 
array K are retained. X is computed in Cases 1 and 3 
and held for Cases 2 and 4 respectively. The elements 
of K are assigned on successive calls and retained for 
the summation in Case 4 . 


CASE 1 

/*HALF-STEP*/ 

! 

1 

l ' 

I. 

CASE -2 

/*HALF-STEP‘ AGAIN*/ 
CASE 3 ' 

/*WHOLE- STEP*/ 


CASE 4 

- /*WHOLE^STEP AGAIN*/ 
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7. Program Organization: Scope of Names, Input-Output 

A HAL program, written using the features defined in HAL M , 

. w. 

-may consist of statements (i.e., IF ’ s , DO's., assignments, etc. ) , 
procedures, and functions within a PROGRAM-CLOSE block, j The 
PROGRAM-CLOSE block constitutes the main program and is the 

i 

I 

smallest compilable unit in HAL; the procedures and functions 
are sub-programs and are not independently compilable. Any 
procedure or function may, in turn, contain statements and • 
additional procedures and functions. 

Program, procedure, and function blocks define boundaries, 
or regions, within which names and labels are recognized .and 
may be used for computation and control. Two blocks with * ‘ 
mutually exclusive name regions may use the same name for. 
different purposes without interference; e.g., X may be a 
vector in one procedure and a label in another. The -region 
in which a name or label is potentially recognizable is called 
the scope of that name. 

7.1 Scope of Names 

The scope of a name or label, in HAL (or HAL^)., is defined 
from the outer-most block toward the inner. Thus, names declared 
at the main program level in a PROGRAM-CLOSE block are potentially 
recognizable within all nested procedures and functions. 

The names are only potentially known because any particular 
• name can be declared again in an inner block and then its 
scope would become all the nested blocks within this block. 

In general, name and label scopes are based on the first 
appearance of the identifiers. An example may help to illustrate 
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.these principles: 

A: PROGRAM; 

DECLARE X VECTOR (6); 

B: PROCEDURE; 

DECLARE M MATRIX'(3 , 4 ) ; 

♦ ' 

* * ’ * 

CLOSE B ; 

C: FUNCTION; 

•DECLARE X MATRIX (4,5) ; 

D: PROCEDURE; 

'DECLARE VECTOR (6), A, M; 

CLOSE D; 

■CLOSE C; 

CLOSE A; 

Comments : 

1. The scope of the program name (label). A, is. all of A 
except D. Note that A is declared to be a vector in D’. 

2. The scope of the vector X is all of A except C and 

D. ' X is declared to be a matrix in C and its scope encompasses 
the nested procedure, d. 

3. The scope of the matrix M is B. 

4. The scope of the vector M is i). 

For these examples of duplicate names within a single 
program, there are no ambiguities because of the different 
name scopes. HAL does not admit duplicate names within the 
same scope. 
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7.2 Scope of Labels 

The scope of labels (statement labels, procedure and function 
names) generally follows the same rules, as .for names- with some 
minor exceptions. The GO TO and PROCEDURE statements; i.e, 

GO TO X or CALL X ( ), imply the existence of X as a label. 

If the label X does not appear in the block in which the .-statement 
is written, the GO TO or CALL must refer to a label in an 
outer block; if the label does appear in the same block, the 
statement refers to this label. 

For example : 


. #1 

A: PROGRAM; 

X: Y = 2 + 3; 

• 

B: PROCEDURE; 
GO TO X; 


#2 

A: PROGRAM; 

X: Y = 2 + 3; 

« 

B PROCEDURE: 
’ GO TO X; 


CLOSE B; 


X: F = G + H; 


CLOSE A; 


CLOSE B; 
CLOSE A; 


In #1, no label X appears in B, therefore control is trans- 
ferred to the X appearing in A. In §2, control will be trans- 
ferred to the X which appears in the same block as the GO TO X. 
With reference to #1, if the label X would have appeared in A 
after B, i.e., after its use in the GO TO statement, then X- 
would have - to be declared explicitly-, prior to B,by a special" 
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DECLARE statement (see Section 12.1.1). 

A function name presents special problems because its 
appearance within a statement does not cue the fact that it is 
■a label. For example 

Y = 3 + SPECIAL (A 2 + 5) ; 

does not convey whether SPECIAL is a function name or simply 
a data name. It is therefore necessary to locate the 
function definition statements at the beginning of a block so 
that the appearance of the function name causes no difficulties. 
For example: 

A: PROGRAM ; 

X: Y = Z + 3; 

B: PROCEDURE; 

Z: FUNCTION: 

• « 

CLOSE Z; 

P = Z + 3; 

CLOSE B; 

CLOSE A; 

Note that even though Z is implicitly declared as a scalar at 
the program level , the reference to Z in B can only be to the 
function z. (For an alternate technique, see Sec. 12.1.2.) 
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7.3 The OUTER Statement 

Even though name scope allows for the duplication of names, 
it does not safely permit their implicit declaration (Sec. 3.1.4) 
within blocks in a program. For example, if a name were 
implicitly declared within a function and also declared at 
the program level, perhaps being unaware of the ambiguity, the 
program level scope would encompass the function, supercede 
the name's "function definition", and cause an , error. In 
order to prevent such an occurrence HAL provides the means to 
isolate an inner block so that only intended names are recognized. 
The OUTER statement effects this isolation. For example: 

A: PROGRAM; Z: PROGRAM; 

DECLARE VECTOR (4) ,X,Y,Z; J- 

P = Q + R* - B; PROCEDURE; 

■ ^ = _ ‘ ■ OUTER Q, X, Y; 


B: PROCEDURE; - 
‘ OUTER Q, X, Y; 


CLOSE B; 


C: FUNCTION; 
• * 
ft 

L£j= M + N; 


CLOSE C; 

- CLOSE B; 

CLOSE A; CLOSE Z; 

The use of the OUTER statement here, means that of all the 

names (and labels) that might have been declared at the 

program level, only Q, X and Y are recognized inside B. 

If OUTER is written without a list of identifiers, no 

"outer" names or labels will be recognized. It follows then 

that .if it is desired to declare names Implicitly an OUTER 

statement must be provided -within the block, or the block must 

be within another block which contains an OUTER statement. 
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(See prgrams A and Z above. In A: P,Q and R are implicitly declared. 
In Z: L, M and N are implicitly declared.) 

.7.4 Explicit Declarations 

In a program with nested procedures and/or functions/ 
convenience may dictate the use of explicit declarations, 
even for scalars and standard default vectors and matrices. 

Instead of selecting outer names for each block, with an OUTER 
statement and list, it may be easier to "accept all" outer 
names and declare explicitly the inner (or local) names. 

Eor example: 

ABLE: PROGRAM; 

DECLARE VECTOR A, B, C,‘ D, E,...,K; 

DECLARE MATRIX AM, BM, CM, . . . ,KM; 

• 

BAKER: PROCEDURE; 

DECLARE A, B, L,JYI, N; 

DECLARE VECTOR X; 

DECLARE MATRIX D, W; 

CLOSE. BAKER; 

In this example, all of the names declared at the program 
level (ABLE) and all of the names declared within BAKER are 
recognized in the procedure, BAKER. Mote that within BAKER A and B 
are declared scalars, and D is a matrix. HAL permits the complete 
selection of inner- and outer-names by combining the use of DECLARE 
statements and the OUTER statement.. 
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7.5 


Communication Between. 'Programs 

The communication between independently compilable 
programs is provided by HAL through a common data pool 
(COMPOOL) . This facility is discussed in detail in Sec. 12.1. 3. 

If the COMPOOL exists and is compiled with a set of programs 
the scope of the names in the COMPOOL comprises all of the 
programs. OUTER statements would then be required at the 
program levels if implicit declarations were to be made. 

7 . 6 Input- Output 

HAL provides three basic I/O statements: .FILE, < RE AD 

and WRITE. It is presumed that for the HAL.^ programmer, ;• : -- 
a simplified usage will suffice. (A more complete discussion 
appears in Sec. 12.2). 

7.6,1 FILE Statement 

By "assigning" a name to a file, its value (s) is . 
written into the file, thus; * .* 

FILE (Device , Record) = X; . 

Device is a three digit number specifying a tape or disc, 
etc., and Record is a program generated identification number 
(Record can be a scalar expression) . 

By "assigning" a file to a variable, the contents .of the 
file are read and assigned, thus 
X = FILE (Device, Record); 

For filing and retrieval, X may be any data type or organization. 
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7 . 6.2 READ Statement 


•• .. ' The READ statement causes input data to be read from an 

external device and assigned to a list of variables. The general 


fo'rmat is : 


4 . 1 

READ (device ) A f B, C, . • 

i 

where A, B 7 C are variable names. If the variable is a vector, 
matrix or array, the number' of data fields to be read is the 
same as the number of elements; the order is the same as when 
a vector, matrix or array is "filled" from a list (see Sec. 4.2.1). 

The following discussion assumes that the external device 
is a card reader. - - 

Each READ statement presumes data begins in column 1 of 
a new card, and that each data field is separated by- a- comma and/or 
blanks. Control over the reading of cards is explained more 
fully in Sec. 12.2.1.1. If the READ statement requires more data 
'than can be provided on a single card, subsequent cards will 
be read automatically as required. An example follows: 

PROG: PROGRAM; 

READ (CARDS) L, M, N, V; 

READ (CARDS) A, B, C, D, E; 


CLOSE PROG; 


+ 4 ( 
"device" is a three digit number specifying a particular device 

(see Sec. 7.6) . A programmer-defined name may be substituted 

by using the REPLACE statement. For example, suppose the I.D. 

number for the card reader were 696 then 

REPLACE CARDS BY ’696'; 

would permit the read control statement 

READ (CARDS) A,B,C, ; 
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Cards : 


1 

64.06, -17.10, 45, -100.06, 67.17, 26.54 
5, 7, 9, 12, 16 

The input data may appear in a natural format. Any decimal 
number with or without a decimal point will be recognized. The 
letter E is used to express exponent powers of 10. Internal 
b’lanks may not appear in. the number. The following are examples 
of acceptable input data: 

369.0 

8 

-8.36E+2 (equivalent to -8.36 x 10^) 

+0.123E-06 (equivalent to 0.123 x 10®) 

456.789 


col 

CARD #1 
CARD #2 


7.6.3 WRITE Statement 

The WRITE statement transmits HAL internal data to an 
external device. The general format is: 

WRITE (device) A, B, C, ....; 

where the list A, B, C may be of variable names and/or expressions. 
If a member of the list is a vector, matrix or array the number of 
data fields to be written is equal to the number of elements; the 
order is the same as when a vector, matrix or array is "filled" 
from a list (see Sec. 4.2.1). 
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The following discussion assumes that the external device 
is a line printer. 

Each WRITE statement presumes that data output will start 
in column 1 on a new line. The first executed WRITE statement 
presumes f in addition, that data output will start at the top of 
a new page of the listing. The programmer can control printing 
by including COLUMN (N) and SKIP (M) instructions in the WRITE 
list. For example: 

WRITE (PRINTER) COLUMN (4) ,A,SKIP(2) ,B ; 

will cause the printer to advance to column 4 before starting to 
print the value of A, and subsequently to skip 2 lines before 
starting to print B. If no print control is used, 5 blanks 
are inserted between each written field. If the WRITE statement 
delivers more data than can be written on one line, the printer 
automatically advances to the beginning of the next line and 
then continues. More about the control of printing is explained 
in Sec. 12.2.1.2. 

Numerical output data appears in the following fixed format: 

/ 

sx . xxxxxxxEtxx 
mantissa exponent 


where 

s is a blank or a minus sign; 
x is a single digit, 0 to 9 ; 
t is a plus or a minus sign. 
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An example follows : 


WRITE (PRINTER) COLUMN (20) , ' TRAJECTORY RESULTS ' , 

SKIP (3 ) , COLUMN ( 10 ) , ' RATE IN FT/SEC', 
COLUMN (30) , 'TIME IN SEC' , 

COLUMN (50) , 'DISTANCE IN FT'; 

LIST: DO FOR 1=1 TO 50; 

WRITE (PRINTER) COLUMN (10) R , 

COLUMN (30) T i7 
COLUMN (50) D x ? 

END LIST; 

Printer: 

col 10 ■ 20 - 30 50 


TRAJECTORY RESULTS 


RATE IN FT/SEC 
- 6 . 374522SE4-03 
-5 . 88120 74E+03 
-5.2156354E+03 


TIME IN SEC 
5. OOOOOOOE-Ol 
1 „ 000000 0E+00 
1 . 5000000E+00 


DISTANCE IN FT 
5.7994 673E+04 
3 . 3210054E+04 
2.147 89 3 5E+04 


4 . 2573067E+0 2 


2.5000000E+01 


1.0057928E+04 
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Part III 


GENERAL CAPABILITIES 

Part III presents a description of some of the more 
general capabilities and complex aspects of HAL. A complete 
description and specification for HAL are given in the 
document "The Programming Language, HAL, - A Specification", 
Document £ MSC-01846. 



HAL Data 


HAL classifies data into six types: integer, scalar, 

vector, matrix, character and bit string. Through use of 
DECLARE statements the programmer can specify, where applicable, 
attributes concerning the size, shape, precision, initialisation, 
and storage class of any data. Figure 8.1 below, summarizes 
the allowable attributes -for each type. The attribute effect 
appears within the chart. (See Sec. 8.4 and 8.5 for Initialization 
and Storage Class 

O'- 


Typ.eObv^ . . 

Dimensions, 

Precision 

Varying 

Ini.ti ali.zat.ion. 

Storage 
. Class 

Integer 

- 

- 

"" 

/ 

/ 

Scalar 

- 

decimal 

digits 

- 

/ 

/ ' 

Vector 

length 

decimal 

digits 


/ 

/ 

Matrix 

rows , 
columns 

decimal 

digits 

' 

/ 

/ 

Bit 

length 

- 

- 

V 

/ 

Character 

length 

- 

max. length 

/ 

" ! 


Fig. 8.1 HAL Data Types and Attributes 


8 . 1 Data Types 

8.1.1 Scalar, Vector, Matrix 

These data types are floating point quantities and 
correspond to normal mathematical definitions. A vector consists 
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of n-scalar components, a matrix of m rows, n columns of scalar 
components . 

8.1.2 Integer 

The integer data type, is a full word signed number containing 
only integral values; i.e., a whole number. 

8.1.3 Bit String 

The bit string data type is simply a string of I's and/or 
.0 ' s of specified (fixed) length. A bit string of length 
equal to one may be used as a boolean variable. 

I * 

8.1.4 Character String 

The character string data type is a string of any of the 
HAL characters, and may be of fixed 'or varying length. The 
varying string is one whose length is dynamically controlled 
by the compiler at execution time, and requires specification 
of its maximum length. 

8.2 Bata Declarations 

/ 

Each data type may be declared ’by a DECLARE statement. 

In addition, for convenience, several declarations may be 
made within a single statement. The general form is as follows: 
DECLARE Name type dimensions precision otherr attributes ; 
That is, the word DECLARE and then the name, followed by the type, 
including any dimensions and precision, followed thereafter by 
other attributes in any order. A few examples follow:. 

1. DECLARE J INTEGER INITIAL (65); 

J is. an integer variable with an initial value *= 65. 

2. DECLARE X PRECISION ( 8 ) AUTOMATIC INITIAL (6 . 061) ; 
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X is a scalar variable with a precision of at least 8 
decimal digits . The storage class is automatic and X has an 
initial value — 6.061. Note. that when the type is not provided 
•the KAL compiler presumes a scalar. The programmer can supply 
the word SCALAR at his option. 

3. DECLARE M MATRIX (3,3) STATIC 

•: •• ' -INITIAL (1,0, 0,0/1, 0,0, 0,1) ; 

M is a 3x3 matrix variable with default precision 
supplied by the compiler. Th.e storage class is static and M 
is initially set to an identity matrix. 

Note that when the programmer does not supply an attribute, 
in most cases the compiler will. presume a standard default. 

For example the default dimensions are VECTOR (3) , 

MATRIX (3,3) , BIT (1) , CHARACTER (8 ) . A list of all the 

HAL standard defaults may be found in the HAL specif ication 

document. (Reference 1) . 

4. DECLARE P BIT (12) INITIAL (OCT' 4372 ') ; 

P Is a -bit string variable of length 12 with an 
initial value of 100011111010. The default- on storage class 
is STATIC. 

8.2.1 Multiple Declarations 

Several declarations may be made in a single statement 
by first separating individual declarations by commas, e.g. 

' - DECLARE J INTEGER INITIAL (65) , 

X PRECISION (8) 

P BIT (12 ) 

, . . etc ; 
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8.2.2, Factored Declarations 

When a group of declarations have common factors , the 
declarations may be made in a single DECLARE statement with the 
common factors appearing first. For example, 

• . ,1. DECLARE PRECISION ( 8 ) X INITIAL C6 . 0 61) , 

M MATRIX (3,3) , V'VECTOR(6)? 

All quantities have been declared to have a precision 
of at least 8 decimal digits. ' •- 

'2. DECLARE BIT (1) INITIAL (BIN *1') ,A,B,C,D,E,F; 

A through F are 1 bit bit strings, all initially 
set equal to 1. v 

8.2.3- Implicit Declarations 

’ * ‘ € 

As previously indicated in Sec. 3.1.4, scalars, vectors, 

and matrices may be declared implicitly (i.e., not by a DECLARE 

- r statement) by their first appearance in the program with an 

appropriate defining mark on the E-line over the variable name. 

Bit and character strings may also be declared in a like manner, 

with default characteristics, by marking the bit string with a 

period (.) and the character string with a comma (,). The standard 

default lengths for bit and character strings are one and eight, 

respectively. Thus the following statements would be sufficient 

• of f 

- to declare the strings A, B, C, and D. 

• 6 
A = BIN* 1 1 OR B; 

C = 'ANSWERS I | D; 

• • 

A -and B are bit strings of length equal to one. 

ft 

C and D are character strings of length equal to- eight. 
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-8.3 Precision . 

> ' As indicated above, HAL allows the user to specify the 
precision of data in a DECLARE statement. The PRECISION 
.attribute may only be applied to scalar, vector, and matrix- and 
-specifies the desired minimum number of decimal digits; the 
number must be a positive integer literal and appear within 
parenthesis as, for example: 

‘ ’ DECLARE X PRECISION (4 ) ; ~ * 

- ’ DECLARE V VECTOR (6) PRECISION ( 8 ) ; 

For the IBM 360 implementation at MSC the compiler will provide 
either single or double precision floating point depending 
on the magnitude of the PRECISION specification. (The standard 
default is single precision'.) For magnitudes greater than 
•7,- double precision will be assigned. 

8.4- Constants and Literals 

HAL makes a distinction between quantities (names) which 
are declared as constant and those which literally express 
their own value (literals) . Both remain constant during 
program execution. 

8.4.1 Literals 

There are two types of literals; arithmetic and string. 

An arithmetic literal appears as an ordinary decimal number and 
may exhibit exponent powers of 2, 10, 16. See Sec. 3.1.3 for 
examples of arithmetic and character string literals. 

The bit string literal expresses its value as a series of binary, 
octal, decimal or hexadecimal digits. String literals must be 
enclosed in single quote marks. • Some examples of bit string 
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literals are: 

BIN. ’101001' 

OCT 1 77346' 

DEC *943' 

/ HEX ’9 6 FAB *- 

8 . 4-. 1 . 1 String Repetition 

’ A convenient way to repeat a string pattern is to 

* i 

include a repetition factor* indicating the number of "repeats". 

For .example, 

1) BIN (6 ) ' 10 ' 

would produce 101010101010 

2 ) OCT (4 ) '7' 

: ; would produce 7777 
.3]- CHAR (26) ' POP ' 

would produce POPPOPPOP POP. 

\ 

Note that when repeating a character string,CHAR( ) must 
precede the string. The programmer may use CHAR for an unrepeated 
string at his option; i.e., 'ANSWER' and CHAR ' ANSWER ’ are 
equivalent. 

A repetition factor may not be included when expressing 
a string as DEC 'digits'. 

8 . 4 . 1 . 2 Using Literals ' ■- v 

Literals may be used in HAL wherever a constant number 
(or string) is required; for example, in the assignment statement 

X = 3.064 Y; 
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8. 4. 1.3 The REPLACE Statement 


The REPLACE statement provides a means of replacing 
a name literally by the string of characters enclosed, within single 
quote marks. For example, the statement 

REPLACE THRUST BY '10601. 74'; \ 

would replace the name THRUST by the characters within the 
quote marks. The substitution is made whenever THRUST is 
encountered in the program. Substitution is accomplished 
within the compiler and does not appear in the listing . For 
example : 

1. A: PROGRAM; 

REPLACE BZERO BY '(-6.27)'; 

DECLARE B INITIAL BZERO; 

2. As PROGRAM; . - . 

REPLACE THRUST BY '10600'; 

m 

ACCMAG= THRUST/MASS; 

The REPLACE statement may also be used to substitute- 
short statements or expressions (or any character string) ; 
i.e. - 

1. REPLACE FIRE_JETS BY 'GO TO F_J ; ' ; 

X = B + C; 

FIRE_JETS 

m 

etc . 


- 8-7 



2. REPLACE FACTOR BY ' X**2 + Y'; 
P = M LOG (FACTOR) ; 


In writing a REPLACE statement the character string must 
be in one-line format (see Appendix D) and the identifier to 
be replaced may not be a HAL keyword or symbol. \ 

' If a replace statement contains a string literal, double quotes 
must be used to distinguish- them from the outer quotes; e.g.. 


1) REPLACE A BY ' BltTlOlO " * ; 

2) REPLACE B BY “'THE ANSWER IS"'. 

A would then be replaced by BIN' 1010* and B by 'THE ANSWER IS'. 
The scope of a REPLACE statement is the same as that for 

3 , 

a name (Sec. 7.1) with the following exception: the name in a 
REPLACE statement is never "replaced" as a ‘result of another 
REPLACE statement located in an outer block. 


EXAMPLE : 


ABLE: PROCEDURE; 
REPLACE X BY ' Y ' ; 
DECLARE X INTEGER; 


BAKER: PROCEDURE; 

REPLACE X BY 1 Z ' ; 

• 

CLOSE BAKER; . 

CLOSE ABLE; 

The identifier X appearing in BAKER. is replaced by Z. ‘X outside 
of BAKER is replaced by Y. 
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« „ 4 . 1 cons tants 


The CONSTANT attribute when- included in the DECLARE state- 
ment specifies that the named quantity is a constant during exe- 
cution; The use of CONSTANT and INITIAL is mutually exclusive. 

Some examples are: 

1) DECLARE J INTEGER CONSTANT ( 65 ) ; 

2) DECLARE X CONSTANT (6 . 061) ; 

i 

3) DECLARE M MATRIX (3,3) CONSTANT (170,0,0/1/0,0,0,1) ; • • 

4) DECLARE P BIT (12) CONSTANT (OCT’ 4372 ') ; 

The declarations are similar to those at the beginning of SecJ 8.2 
except J, X , M and P are constants. 

8. 4. 2.1 Initialization Repetition ' ’■ 

Initial and constant values of vectors " and matrices may 

be specified by lists of literals and it may be convenient -to repeat 

portions of the list. This is accomplished by use of the number (#) 

sign. As an illustration consider example (3) in Sec. -8. 4.-2 above. 

This could also be written: • -■ • 

DECLARE M.MATRIX(3,3)CONSTANT(1,3#0,1,3#0,1) ; 
or • - 

‘ DECLARE M MATRIX (3,3) CONSTANT (2# (1,3 #0) ,1) ; - 

The term 3#0 means 0 repeated 3 times. ' • ' 

For vectors and matrices, the number of literals in. the 

INITIAL or CONSTANT lists (including all repetitions) must either 

be equal to the total number of vector or matrix components, or 

be equal to one. 

1) If equal to one, all the components are set equal 
to the literal (e.g., DECLARE M MATRIX INITIAL (0) ) . 

2) If equal to the total number of components, the com- 
ponents are set equal to literals in the list 
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on an element-by-element basis. 

The vector and/or matrix is ’filled' in the same manner 
as- described in Sec. 4.2.1. 

The uses and forms, of INITIAL and CONSTANT are complex and 
it is suggested that the programmer consult the HAL specification 

i 

document (reference 1) if more information is needed. 

8.5 Storage Class 

In HAL there are two ways in which data storage may be 
assigned: STATIC and AUTOMATIC. These attributes may only be 

applied to declarations made within procedures and functions. 

STATIC storage is assigned when a program is activated 
and remains assigned until the end of a program. This ' is 
the kind of storage to which the FORTRAN programmer is accustomed 
Consider the following example: 

A: PROGRAM; 

• 

B: FUNCTION; 

DECLARE X INITIAL (5) STATIC; 

X = X + Y; 

CLOSE B ; 

CLOSE A; 

In this example, X being a STATIC variable is assigned a storage 
location and initialized to five only when A is activated. Since 
its storage assignment does not depend upon B, the value of X, 
upon successive entries to B, will be the last computed; i.e'T, 
the value of X is held static (" remembered ") . 

AUTOMATIC storage is assigned on entry to the block . • 

in which it is declared, and is released on exit from that 
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block. Suppose that in the example above an additional scalar 
Y is declared in B; thus 
B':- FUNCTION; 

DECLARE INITIAL (5) X STATIC, Y AUTOMATIC; 

Y, being an AUTOMATIC variable is assigned storage only when 
control passes to the function' B. Therefore, the last value of Y 
is not "remembered" and each invocation of B will cause Y 
to be initialized at a value of 5. AUTOMATIC storage is 
■normally used for local data which must be reinitialized 
each time the block is entered. 


8.6 Arrays and Structures 

In HAL the programmer may associate the various data 
types into two organizations; arrays and structures. The 
array is an ordered collection of elements , known" by one 
name, all of which have the same data type and attributes. 

The structure may be a collection of different data types, or- 
ganized in a hierarchy. 

t 

8.6.1 Arrays 

Any of the HAL data types may be organized into one-, 
two-, or three-dimensional arrays This is accomplished within 
the DECLARE statement; for example, 
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1) DECLARE J ARRAY (6) INTEGER. INITIAL (65) ; 

J is a one-dimensional array variable of 6 elements. 

Each element is an integer with an initial value = 65.- 
-■ 2) DECLARE M ARRAY (4 , 2) MATRIX (3 , 3) ; 

M is a two-dimensional array (4x2) of 3x3 matrices. 

* . r ' t 

In- applying the INITIAL and CONSTANT attributes to arrays of 
data types the list of literals may specify the array value by 
the whole array, by a single array- component (e.g., a matrix), 
or by an element of a component (e.g., a scalar element of a 
vector) . The programmer should consult the HAL specification 
document (reference 1) for the allowable forms; some examples 
.follow : 

'I) DECLARE V ARRAY (4) VECT0R(2) INITIAL (1 , 2 , 3 , 4 ,-4 ,-3 ,-2 , -1) ; 

. The array V is initialized such that its first component 
has the value [1,2] and the second [3,4], etc. 

2) DECLARE V ARRAY (4) VECTOR (2) INITIAL (1 , 2 } ; 

All four vectors in the array are initialized to the 
value [1,2] . 

3) DECLARE V ARRAY ( 4 ) VECT0R(2) INITIAL(l); 

All of the vector elements in all of the vectors are 
initialized to 1. 
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8.6.2 Structures 


Some programs are concerned with collections of data of 

different types. For example/ in a spacecraft application the 

■ I, 

time, fuel, position and velocity vectors, navigation covariance 
matrix, cockpit switch positions and status monitoring flags 
might be collected periodically for storage or transmission 
to the ground. A programmer might wish to move READ, 

WRITE, FILE, etc) all or only part of the collection. To do 
this he must be able to name and establish relationships among 
the data and to the whole. This is accomplished by the 
structure declaration, e.g.- 

DECLARE 1 SPACECRAFT JDATA, 

2 TIME INTEGER, 

2 FUEL, 

2 NAVIGATION, 

3 POSITION VECTOR, 

3 VELOCITY VECTOR, 

3 NAVJ20V MATRIX (6,6), 

2 COCKPIT, 

3 P OWE R_S WI TC HE S BIT (20), 

3 LIFE_S WITCHES BIT (15), 

2 STATUS BIT (10); 

The number preceding each name indicates the level of the . 
name. The name SPACECRAFTJDATA has level 1, the highest level. 
This name refers to the major structure and includes all the names 
in the declaration. Thereafter, whenever a name at a higher level 
is followed by a name(s) at a lower level (higher number), the 
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-name at the higher level is that of a minor structure and includes 
.the other names within its structure. For example, 

COCKPIT includes POWER_SWITCHES and LIFE_SWITCHES . 

I 

The data type declarations, i.e., not the major or minor 

! 

structure names, follow the general rules for declarations stated . 
earlier in this section. Note that the collection of items 
above could be represented pictorially as in Figure ‘8 . 6-1 . 

SPACECRAFT__DATA 

H 1 — i L — I r— : I- 

TIME FUEL NAVIGATION " COCKPIT' - . STATUS 

P0WERJ3WITCHES LIFE_SWITCHES 

r — — — t 1 

POSITION VELOCITY NAV_COV 

Figure 8.6-1 Hierarchy of Levels in ~ 

Example Data Structure 

8. 6. 2.1 Name Qualification 

When all the names associated with a structure are unique, 
as in. the example above, the data type names and the minor 
structure names may be referred to individually without ambiguity; 
i.e., FUEL, COCKPIT, POWER_SWITCHES , etc. Under these conditions 
the major structure may be given the attribute NONQUALIFIED, 
i.e. , its name.s need no further qualification. Thus the 
declaration above would begin: 


8-14 



DECLARE 1 SPACECRAFT_DATA NONQUALIFIED, 

- 2 TIME INTEGER 

9 

etc. 

However, the names within a structure need not be unique. 

It is permissible to use some or all of the lower-level 
names in several minor structures or in another major structure 
declared 'in the same part of the program. For example, 
consider the following structure where position and velocity 
are grouped into three intervals : 

DECLARE 1 NAV_DATA QUALIFIED, 

2 FIRST, 

3 TIME INTEGER, 

3 POSITION VECTOR, 

3 VELOCITY VECTOR, 

2 SECOND, 

3 TIME INTEGER, 

3 POSITION VECTOR, 

3 VELOCITY VECTOR, 

2 THIRD, 

3 TIME INTEGER, 

3 POSITION VECTOR, 

3 VELOCITY VECTOR; 

■In order to distinguish among the variables with the same 
names, it is necessary to specify additional information. 

This is done by qualifying the names with higher-level names 
to make the identification unique. The rules for qualification 
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are that a name used in a structure must be qualified by 
prefixing it with the names of all the structures (major and 
minor) in which it is contained. The names are separated 
by a period and must be in order of level number, the most 
inclusive level appearing first. The major structure declaration 
must contain the attribute QUALIFIED. Thus in the example 
above, the three variables TIME would be referred to as: 

NAV_DATA . FIRST . TIME . - 

NAV_DATA. SECOND. TIME 
NAV_DATA . THIRD . TIME 

If the programmer does not provide a major structure , attribute , 
the compiler presumes a NONQUALIFIED structure. 

8. 6. 2. 2 Multiple Copies of Structures 

Multiple copies of major and/or minor structures may 
be declared by including a dimension in the DECLARE statement 
after the structure name; e.g., 

DECLARE 1 NAV_DATA{ 10) QUALIFIED, 

2 FIRST (5) , 

o 

m 

2 SECOND (5) , 

« 

2 THIRD (5) , 


In this case there are 10 copies of the major structure NAV_DATA. 
Each copy of NAV DATA contains 5 copies of the minor- structures 
FIRST, SECOND, THIRD. To refer to a particular VELOCITY 
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the qualified name must be subscripted as follows: 

NAV_DATA. FIRST. VELOCITY g 3 . 

that is, the VELOCITY in the 3^ copy of FIRST which is in the 
8 th -copy of NAV_DATA. Structure subscripting is presented in 
Section 9 . 
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8.7 Formal Parameters and Functions 

Functions, procedures and formal parameters were introduced 
and discussed in Section 6 in the context of HAL^. In general, 
•FUNCTION and PROCEDURE statements may contain lists of formal 
parameters -of any data type, including arrays and structures. 

The FUNCTION statement may define the function result to be of 
any -single data-type {arrays' and structures' are not permitted) . 

- • b 

8^7.1 Formal Parameter Declarations 

8. 7.1:1 Specified Dimensions 

Formal parameters with default attributes may be 
declared implicitly simply by their appearance in the list of 
parameters with appropriate annotation. Thus, 

_ * • T 

ABLE: FUNCTION (A, B, C, D, E) ; 

declares A a scalar, B a three component vector, C a 3x3 

• r 

matrix, D a one bit bit string, and E a character string, eight 
characters long. Since the data type of the function result 
is not provided, a scalar result is presumed. 

If other than default characteristics are desired, but 
with specified dimensions, the formal parameters must be 
declared within the function body (programmer-supplied annota- 
tion becomes optional) . For example, 

• * 

ABLE: FUNCTION (A, B,M, [D] ) VECTOR; 

DECLARE A PRECISION (10 ) , B BIT(15); 

DECLARE M MATRIX (6 ,3), D ARRAY (10 , 5 , 3 ) ; 
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The DECLARE statements follow the forms presented in 
previous sections. Note that the function has a vector result 
of default dimension (i.e., 3) since the dimension has not 
been provided. 

Implicit and explicit formal parameter declarations follow 
the same rules for functions and procedures. 

* ’ P 

8 . 7 . 1 . 2 Variable Dimensions 

For certain applications it may be convenient not to 
specify the dimensions of parameters but instead, to have the 
parameters- take on the dimensions of the corresponding 
arguments in the CALL or function-reference statements. 

This may be accomplished by substituting an asterisk (*) for 
the dimension literal. For example, suppose a function is 
written to accept any size matrix and returns some scalar 
result; i.e., 

ANY;- FUNCTION (Q); 

DECLARE Q MATRIX {*,*); 

The two asterisks mean that both the row and column dimensions 
will be determined at run time. A more complicated example 
might be 

ABLE : PROCEDURE ( [C] ) ASSIGN (G) ; 

DECLARE C ARRAY (*,2)BIT(*) ; 

This procedure expects to process an nx2 array of m-bit - 
bit strings,, where n and m will be determined at run time. 

In general, the asterisk dimension may be applied to 
array, matrix and vector dimensions, as well as to bit and 
character string lengths. 
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8.7.2, Function Results 

The FUNCTION statement defines the function result 
by indicating its data type and attributes. The type may 
be any of the six HAL data types but the attributes a.re 

i 

limited to dimension and precision. The following are 
examples of valid FUNCTION statements: 

A: FUNCTION (X, Y) PRECISION CIO ) ; 

B: FUNCTION ( X , Y ) MATRIXC6,3) PRECISION (10 ) ; 

C: FUNCTION (X,v) CHARACTER (25); 


8“20 



8.8 Alternate DECLARE Statement Format 


All of the HAL 'data types, and arrays of these types, 
may be declared using an alternate form of the DECLARE statement 
where the data type is indicated (except for scalar and integer) 
by an appropriate mark over the name and the size and shape 
designated by a subscript. (-) , (*) , (.), (,) appearing over 

a name specifies vector, matrix, bit string and character 
string data types respectively. Within the subscript, array 
shape must be separated from string or- vector length, and 
matrix dimensions, by a colon (:). 

The use of INTEGER, PRECISION and other attributes remain 
as described in Secs. 9.2 and 8.3. 

EXAMPLES : 

1) DECLARE A 5Q ; 

- a linear array of 50 scalars . 

2) DECLARE B 2 ^INTEGER; 

*7 a 2x3 array of integers . 

3) DECLARE 

- a linear array of 10 vectors of length 6. 

4) DECLARE M g g j 

- a 6x6 matrix. 

« 

5) DECLARE S 10() ; 

a bit string of length 100. 
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8.9 The DEFAULT Statement 

As detailed in Sec. 8.2, when names are implicitly declared, 
or explicitly declared with not all characteristics specified, 
th'e unspecified characteristics are supplied from a set of 
defaults. Standard defaults are included in Sec. 8.2 and a 
complete list appears in Appendix B of the HAL specification 
document. 

In some cases it may be convenient to modify the standard 
default set to reduce the amount of source program coding required 
to achieve the given objective. For this purpose, the DEFAULT 
statement is provided, and the following "size" keywords defined: 

BITLENGTH 
. VECTORLENGTH 
MATRIXDIM 
CHARLENGTH 

The DEFAULT statement has the general format: 

DEFAULT type (dimension) size; 

EXAMPLES : 

1) DEFAULT MATRIX (4, 7) BITLENGTH (24) ; 

DECLARE A, B MATRIX, C BIT (10), D BIT; 

The DEFAULT statement changes the type default from scalar 
to matrix, the matrix dimension from (3,3) to (4,7) and 
■ the bit length from 1 to 24. Therefore, the DECLARE 
statement declares A and B to be 4x7 matrices (note 
the MATRIX need not be supplied) , and D to have length equal 
to 24 bits. It is to be emphasized that the defaults will 
"fill in" wherever the particular characteristics is not 
specified. 
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2) DEFAULT BITLENGTH (16 ) ; 

• t 

DECLARE' E, F, G; 

The DEFAULT statement changes bit length to 16; all other 
defaults remain the same. Therefore, E is a scalar, F a 
bit string of length 16, and G a character string of 
length 8 . 

The scope of a DEFAULT statement, that is the. region in which 
it is recognized, is the same as that for a DECLARE statement 
(see Sec. 7.1) . 


8-23 



9 . Subscripting 

HAL makes use of subscripts for three purposes: 1) to select 

(i.e., index or partition} data items from complex data types, 
arrays and structures; 2) to formulate types and arrays from 
component parts; and 3) to modify the interpretation and usage 
of data quantities. All subscripting may be accomplished in a 
natural format by introducing the subscript expressions on the 
S-line. 

9 • 1 Selection 

9.1.1 Arrays of Vectors and Matrices 

The referencing of individual components of vectors and 
matrices, and the partitioning of these data types, by subscript- 
ing, are presented in Sec. 5.1 of this guide. Since HAL also 
permits arrays of vectors and matrices it becomes necessary to 
introduce additional subscripting in order to select and partition 
all quantities. This is accomplished by separating the array sub- 
scripts from the array element subscripts with a colon (:), with 
the array subscripts always coming first. For example, consider 
the following array of matrices : 

DECLARE M ARRAY (4 , 3 JMATRIX (6 , 6 ) ; 

— a 4x3 array of 6x6 matrices. 

* 

A few subscript possibilities are: 

1J M l,2:3,4 

This selects the scalar component in the 3rd row, 

4th column o.f the matrix in the 1st row, 2nd column of the array. 
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2 > « 1 , 2 : 

This selects the matrix in the 1st row, 2nd column 
of the array. The "trailing colon" means that the selection 
consists of the data types 'in the array, and not of elements 
within the data types. (Note that the compiler will supply the 
"over- star" indicating a matrix) . ' • 

3). [M] 3>4 

This selects the scalar components in' the 3rd row, 

4th column of all the matrices. The result is an array 
of scalars . If M were not an array of matrices, but a single 
matrix instead, 4 would result in a single scalar. (Note • 
that the compiler will supply the brackets indicating an 
array. ) 


This selects a single 6-dimensional vector from 
the 2nd row (all columns) of the matrix in the 3rd row, 1st 
column of the array. (Note that the compiler will supply the 
"over^bar" indicating a vector.) 


5) [M] 1 TO 3,2:1. TO 3,1 T0‘3_ . 

This selects a sub-array of sub-matrices; i.e., 

the 1st three rows and 1st three columns of all the 

matrices in the 1st three rows, 2nd column of the original 

array. (Note that the compiler will supply the brackets 

and "over-star" indicating an array of matrices.) 

It is evident that many complex forms can be developed 
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from this example. The important point is that by sub- 
scripting (indexing and partitioning) both the array and the 
array components, any selection can be made unambiguously. 

9. 1.1.1 The Use of * and # 

The two symbols * and # may be used in subscripting 

variables to indicate "all of a particular index" and 

"the last of a particular index" respectively. The * can only 

appear alone in a subscript position; i.e., M* „ or 

r z 

A* * ’ The # may appear alone, as part of the expressions 

# + K, or associated with "TO" or "AT" in the following 
forms : 

# + K TO f 

P AT M L 

Examples : 

1) M i to 6,* 

- a matrix partition: the first 6 rows, 
all columns. 

2) M # _2 T0 #,#-2 TO # 

- a matrix partition: the last three rows 
and last three columns 

3) V P AT #-Q 

- a vector partition: P elements starting at 
0 from the last element. 

+ Note that # is also used to indicate repetition within 
a list (see Sec. 8.4)2. 1 and 9.2). 
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9.1.2 Bit and Character Strings 

The individual bits and characters of strings, and the 
strings themselves. wi thin arrays, may be referenced by 
subscripting. The method is similar to that for vectors. 

Some examples follow based on the declaration: 

DECLARE A BIT (15); 

- a bit string of length 15. 

1 ) Ap 

* * • • « 

This selects the p bit m the string starting 

from the left, (Note that the compiler supplies the 

"over-dot" indicating a bit string.) 


2) A 1 TO 8 

This partitions the string and selects the 
1st eight bits . 


3) A. 


P TO # 

th 

This partitions the string from the P bit 


to the end , 


If the strings were arrayed, i.e., 
DECLARE A ARRAY (10 ) BIT (15) ; 


then 


4) [A] 


P . 


I 

This selects the P 11 - bit from every string. 
The result is an array of 1 bit bit-strings. 
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5) A J?; 


th 

This selects the f bit string of the array. Note 
the "trailing colon". 

6) [A] i £0 6; 

c4* 

This selects the 1 six strings of the array. The 
result is an array of 6 bit strings, each of 15 bits length. 


9 .-1 . 3 Structures 

Any data item within a structure may be referenced by 
appropriate' subscripting of the item name. The structure may 
be QUALIFIED or NONQUALIFIED. -The general method is "to reach" 
the item by first indicating the major structure copy, then 
the minor structure (s) copy(s), then the array position and 
finally the index within the data type. All structure sub- ' 
scripts must be separated from other subscripts by a semi-colon (;). 
The following example illustrates these points : 


DECLARE 1 A (50) QUALIFIED, 

2 B{25) , 

3 C ARRAY (4, 4) MATRIX (3,3) , 

3 D BIT (10 ) , 

2 E VECTOR ( 6 ) ? 

i. { a -}.3 5; 

• This selects the 35th copy of the major structure, A. 
(Note that the compiler will supply the brackets indicating 
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a structure.) 


2) [A.B.C3 35 ^ 10 . 

This selects ‘the array of matrices, C, which are in 
the 10 th copy of B, which is in the 35^ copy of A. (Note 
that the compiler supplies the "over-star" and brackets 
indicating an array of matrices.) 

3) {A.B.D}*^ 1;5 to 8 

This selects bits 5 to 8 of the bit string, D, in the 

s t 

1 copies of B which are in all copies of A. (Note that 
the compiler supplies the "over-dot" and brackets indicating 
a structure of bit strings.) 


thus 


For a NONQUALIFIED structure the subscripting would be identical; 

, for example, (2) above would be written 

* 


[C] 


35,10; 


9. 1.3.1 Structures of a Single Data Type 

Consider the following two DECLARE statements: 

1) DECLARE 1 A (5) , 

2B CHARACTER ( 10 ) ; 

2 ) DECLARE 1 A,. 

2B ARRAY (5) CHARACTER ( 10 ) ; 

/ 

From the first statement, {B} is a structure of all copies of 

/ / 

string B. , From the second, [B] is the array of all strings. 
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/ / 

Note that while {B} in 1) and [B] in 2) contain the same data they 
are not identical and cannot be used interchangeably. 

Consider further, 

3} DECLARE 1 A(5) , 

2B ARRAY (5) CHARACTER (10) ; 

/ 

{ [B] >2 ,j 0 is a structure of the last three copies of the 

t 

array [B] . , 

. It is suggested the- reader consult the HAL specification 
document (Sec. 6) for more details ‘on structure subscripting 
and manipulations. 

i 

9.2 Formulation 

Vectors and matrices, and arrays of all data types may 
be formulated from their component parts by using special 
conversion functions and appropriate subscripting. In Sec. 

4.2.1, the functions SCALAR, VECTOR, MATRIX were.. introduced. 

HAL also provides the following additional "formulating" 
functions ; 

INTEGER 

BIT 

CHARACTER 

Each of these functions operates on lists of data and may be 
"filled" and "shaped" by subscripting. 
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9.2.1 VECTOR and MATRIX 


These functions may be used both for formulating vector 
and matrix data types, as in Sec. 4.2.1, and for formulating 
arrays of these types. The distinction is made in the subscript 
format. For example 

MATRIX , (5) 

formulates a 2x3 matrix, the elements of which all equal 5. 

On the other hand, 

MATSIX 6=3,3< 5 ) 

formulates' a one-dimensional array of 6, 2x3 matrices, the 
elements of which all equal 5. Several objectives may be accom- 
plished using these functions depending upon the number of data 
items included in the list and the subscript format. For 
example, 

1) vector 4 (a,b,c,d) 

formulates a 4 dimensional vector. 

2) VECTOR,- . (A, B , C, D) 

formulates a one dimension array of 6, 4 dimensional 
vectors . 

3) MATRIX 10:4 , 2 (20#A,20#B,40#C) 

The arguments represent a linear list of 80 data 
items. This function formulates a one dimensional 
array of 10, 4x2 matrices in the following way: the 
first 8 items of the list 'if ill" the first 4x2 matrix 
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(by rows), the • next 8 items "fill" the second matrix, etc. 
The variations of VECTOR and MATRIX are numerous and the 
reader is advised to consult the HAL language specification 
. (Ref. 1). if more information -is needed. In general, though, 

.three list sizes are acceptable: a single 'item which is "spread" 
over the data type or the data type array (also see Sec. 9. 2. 1.1 
below) ; a number of items equal to those in the data type dimension 

. * . I 

(e.g„, the total 'number of elements in a -matrix) which is then 
repeated for all components of an array; and a number of items 
equal to the total number in. the array which then, simply "fills"- 
the- array .on an elemeht-by- element basis. - . 

Vectors and matrices must consist of scalar elements, 
therefore other data types included within a list will 'be con- 
verted appropriately. (Conversions of types to types are 
-discussed in Sec. 10.3.2.) 

When the list contains more than one entry and the function 

..is unsub scripted, the result is a vector of length equal to the 
I 

number of elements in the list or a square matrix with rows 
and columns equal to the square root of the number of elements 
in the list. .(The square root must be an integral number.) 

For example, 

•1) VECTOR (A, B,C,D) 

formulates a 4 dimensional vector 
2) MATRIX (20# A, 5“B) 

formulates a 5x5 matrix. 
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When the array shape is specified but dimension is not; e.g., 

■ VECTORg. (A,B,C>D) 

the resultant vector (s) or matrices take on default dimensions 

C 

and the number of elements in the list must be consistent with 

, I 

the default. In the example above, the function would' evoke • 
a compiler error message because the 4 elements in the list would 
not agree with the standard vector length default of 3. 

9. 2. 1.1 VECTOR and MATRIX of a Single List Entry 

If the number of entries in list is one; e.g., a . 
single scalar, vector, matrix, etc., or a single array of any - 
data type then two cases are of interest: subscripted and 

unsubscripted. • 

When the functions are .subscripted and the list entry 
is a single data item (e.g., a scalar) its value is' "spread"' 
over the function as described above. If the single entry 
comprises a multiple data item (e.g. , a matrix or array) , 
the entry is first unraveled and' the function "filled" according 
to the subscripted array shape and dimensions. 

When the functions are unsubscripted, the final result 

l 

depends upon the data type, array shape and dimension of the 
list entry. A summary of the resulting forms is presented in 
Appendix F. 


■3 & 
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9'. 2 . 2 INTEGER and SCALAR 

-The use of INTEGER and SCALAR are similar in that arrays 
of integers or scalars are formulated from lists of components 

i 

i 

with appropriate conversions '(see Sec. 10.3.2) where necessary. 
Some examples are: 

1) INTEGER- { J) 

3 r o r 6 . 

The result is a 3x3x3 array of integers . Every com- 
ponent of the array is set equal to J. 

2) SCALARg(M) 

The result is a one-dimensional array of scalars of 

•f* * 

length 9, where' M 'is a 3x3 matrix. • - - 

3) INTEGER^ 2 (3#I,D) ' y . 

’ * 

The result is a 6x2 array of integers (presuming. D is 
3x3) . The matrix is unraveled into a one-dimensional 
list (see Sec. 4.2.1). Note that the scalar elements - 

•k ' 

of the matrix D will be converted to integers . 

When the list contains more than one entry and the function 
is unsub scripted, the result is a one-dimensional array of" 
length equal to the number of elements in the list. For 'example, 

SCALAR (V,M) 

The result is a one-dimensional array of scalars of as 

* 

many components as in.V plus M. 

9. 2. 2.1 SCALAR and INTEGER of a Single List Entry 
See Sec. 9. 2. 2.1 and Appendix F. 
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9.2.3 BIT and CHARACTER 

BIT and CHARACTER may be used to formulate arrays of bit- 
and character-strings respectively. Appropriate conversions are 
made where necessary (see Sec. 10.3.2) . Some examples are: 

BI,r 2 7 3:l TO 10 {A) . 

The result is a 2x3 array of bit strings. Each bit 

string equals the first 10 bits of the "bit-pattern" 

representation of the scalar, A. ; 

2) CHARACTER-^ (X 7 Y, Z, 1 COORDINATES. 1 ) 

The result is a one-dimensional array of 10 character 
strings. The first 9 strings are of the length 
necessary to represent the scalar (floating point), 
components of the vectors. Resulting character strings 
are implemented as varying. ' .. * 

3) BIT. , <3#A,3#B,3#C,3#D) • 

/ -5 - * . 

- The result is a 4x3 array of bit strings. All strings 
will be of the same length and equal to the maximum 
string length in the list of arguments. 

When the list contains more than one entry and the function 
is unsubs cripted, the result is a one-dimensional array of. 
length equal to the number of elements in the list. Bit-string 
length corresponds to maximum string length in the list; character 
length is varying. 
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9=2. 3.1 BIT and CHARACTER of a Single List Entry 

See Sec. 9. 2. 2.1 and Appendix F . Note that subscript 
dimension for BIT and CHARACTER are different, in concept, 
than for VECTOR. VECTOR dimension specifies resultant vector 
length; BIT or CHARACTER dimension specifies the bits or 
characters to be selected from the string representations of 
the arguments . 

Once again, the reader is advised to consult the HAL 
specification document (Reference 1) for more complete information 
on BIT and CHARACTER and the other functions presented in Sec. 9.2 

9.3 Modification 

Two forms of subscripting allow the HAL programmer to modify 
the. interpretation and/or usage of certain data types and 
.expressions . 

1) In converting from bits to characters and from 
.characters to bits, the subscripts @BIN, @OCT, @DEC, 

@HEX provide binary, octal, decimal and hexadecimal 
interpretation, e.g., BIT^q CT ( ' 657 1 ) results in the 
bit string 110101111. 

2) The precision of an expression can be specified explicitly 
by use of the subscript form @p, where p represents the 
minimum number of desired decimal digits. For example 
suppose the integer I has the value 311,648,726 and is 

to be added to the single precision floating point - 
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scalar X. It is desired to maintain at least 10 digit 
precision in the floating point result. Thus the 
expression 

, I @ld +X 

will 

1) cause the integer to be converted to a scalar with 
precision of at least 10 decimal digits (i.e., 

. a double precision mantissa on the IBM 360/75) ; 

2) convert X to double precision because it is 
involved with a double precision operand; 

3) perform tlie sum in' double precision. 

More examples of modification and HAL's automatic data 
conversions will be presented in Section 10. 
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10. Data Manipulation 

Iri Part II of this guide the expressions and assignments 

associated with HAL m were presented. These were largely confined 

to manipulation with the arithmetic types: scalar, vector, matrix. 

i 

In this section, string and array operations are introduced as 

I 

well as the conversions necessary for combining mixed data types. 

A summary of 'all HAL data operations is presented in Appendix C. 

10.1 String Operations 

10.1.1 Bit Strings 

The manipulation of bit strings, in HAL, is accomplished 
using the following four operators: ' / 


Operator 

Definition 

NOT (~», A ) 

complement 

CAT ( | [ ) 

concatenation 

AND (&) 

logical AND 

OR (1 or ‘ ) 

logical OR 


and certain of the built-in functions listed in Appendix- B. 
(Acceptable alternate forms for the above operators are. shown 
in parentheses.) NOT complements each bit in the string; CAT 
forms one string by joining together the two operand strings; AND 
and OR perform bit-by-bit logical operations on the corresponding 
bits- of two bit operands. If the strings are of unequal length 
for AND and OR, the shorter is padded on the left with zeros. 

When assigning a bit expression to a target variable, if the 
target and' expression are of unequal length, then the following 
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steps are followed: if the expression result is too long, it is 

truncated on the left; if it is too short, it is padded with 
zeros on the left. As examples, consider 
- ■ ■ DECLARE BIT(12) _'A,B,C; 


then. 


1) NOT B 

Each bit is complemented 
2 > C “ B i TO 7 I l A #-4 TO # 


The first 8 bits of B and the last 5 bits of A are joined. 


A - B 4 TO 8 ™ D C 1 TO 10. 


The two operands are of different lengths. g 

is padded on the left with zeros until it matches the length 
of T0 io* A logical AND is performed bit-by-bit; the result 
is a bit string of length 10. On assignment to A which is of 
length 12, the result is padded on the left with two 'zeros. 


4. M = (D&E) | (F&G&uH) |l 


If all of these bit strings were declared implicitly 
then each represents a 1 bit string (i.e„, a boolean) and this 
is an example of a complicated boolean expression and assignment. 
M is either TRUE or FALSE; i.e., either BIN * 1* or BIN 'O' 

depending upon the expression result. For example if D = BIN ' 1' 

• • 

and E = BIN '1' then M - BIN 1 1' ( i is performed before &; 


see Sec . 10.1.3). 
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'10.1.1.1 Bit Strings Within Logical Conditions 

A logical condition or set of logical conditions, 

L c 7 are conditions imposed .upon IF and DO WHILE statements 

(see Sec. 4.3.2), i.e., 

IF L THEN 

c 

‘or 


DO WHILE L ; 

c 


As such the logical- condition expresses a comparison (or 
comparisons) among data which is either true or false. For 
HAL^, in Sec. 4.3. 3.1, the relational operators were used 
to compare arithmetic data.’ These operators may also be 
extended to bit strings. ’Thus it becomes possible to test 
whether 

• • 

A < B 
♦ « 

A >- B 

A B 

etc. 


The shorter string is padded on the left, as before. A 
bit comparison involves the left-to-right comparison of 
corresponding binary digits; BIN 1 1’ is defined as greater 
than BIN ’O'. The result of a bit string comparison is a 
single true or false answer. Thus BIN f 101* >= BIN 1 1111 1 

is false because the first bit comparison (starting on 

• • 

the left) fails. Note that, in this context A“i= Borneans 

• • 

that if any of the corresponding bits of A and B are not 


equal then the relation is true. 
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10-1. 1.2 "Boolean" Conditions 

If. the logical condition in an IF or DO WHILE statement 
involves only single-bit bit strings (booleans) then the condition 
may be expressed' as a boolean expression, similar to example (4) 

of Sec. 10.1.1.1. For example: 

* • « 

IF A AND (B OR C) THEN . . . 

• * « ♦ 

meaning if A is true {i.e., = BIN '1') and either B or C is 
• ‘ ’ ■ ; 

true then . . . ; or 

* • • • 

. ‘ • “ DO WHILE nAj(B&C); 

« 

meaning do the' following statements while A is false (i.e., 

• • 

BIN- 1 0 T ) or, B and C are true. 

10.1.1.3 Combining Comparisons and Boolean Expressions 

Whenever it is desired to combine comparison expressions 
(arithmetic or string) with boolean expressions it becomes 
necessary to express all conditions as comparisons. 

That is , 

IF X>5 AND B THEN ... 

is not an acceptable form using HAL. The statement must be written 
with the condition on B expressed as a comparison expression; thus, 

IF X>5 AND B = TRUE THEN . . . 

is correct. (Note TRUE = BIN ’l 1 .)' A more complicated example 
might be : 

IF(B||C = OCT '77') OR (X?> 5 AND FLAG1 = TRUE) THEN . . . 
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10.1.2 ' Character Strings. 


When using HAL, input data from cards, terminals, 

1 

files, etc. and output data to a printer or other device, 

are considered to be streams of characters . The acceptance 

) 

, S 

and preparation of numerical data, message , texts , headings, 
etc. requires the manipulation of character strings. The 
basic operations are presented here; I/O statements appear 
in Sections 7 and 11. 

The manipulation of character strings, in HAL, is 
accomplished using the concatenation operator, CAT or (|j), 
and certain of the built-in functions listed in Appendix B. -- - 

Since character variables may be fixed or varying, a distinction 
must be made. When assigning a character expression, to a 
fixed character string target variable, the result' is similar 
to that for bit strings except that padding or truncation 
is applied on the right. Thus, the expression- value is 
truncated on the right/if it is too long, or padded with, 
blanks on the right, if it is too short. For example, consider 
- DECLARE CHARACTER (12) A,B,C; ■ 


then. 


1. C = ' ABC ' ; - 

The first three characters of C are set to 'ABC', 
the rest are blanked. 


2 * C 3" TO 4 = ' 

/ 

Characters 3 and 4 are set to 'AB' , the rest of C 
are left alone. 
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If the target variable is a varying character string , 
then, in general, the target string takes on a length 
equal to that of the right hand side expression. If the 
expression length is longer than the declared maximum length, 
the expression is truncated on the right. ; 

The HAL language specification (Ref. 1) presents detailed 
rules and examples for the manipulation' of character strings. 

10.1.2.1 Character Stri ngs Within Logical Conditions ' 

Character string comparisons may be incorporated 

into logical conditions in the same manner as bit strings 
(Sec. 10.1.1.1). All of the relational operators of Sec. 

4. 3. 3.1 may be applied in .comparing two character, strings. 

The shorter string is padded on the right with .blanks. A 
character comparison involves left-to-right comparison of 
corresponding characters according to the collating sequence 
presented in Appendix E. - • 

The result of a character string comparison is' a 
single true or false answer. Thus 

* ABCDE ' = 1 ABCEF 1 is false because the fourth 
character comparison (starting on the left) fails. 


/ / 

f Note that in this context A "1= B means that if any of the 

/ I 

corresponding characters of A and B are not equal then the 
relation is true. 
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10.1.3 Order of Operations 


In evaluating the expressions with a logical condition, 
an order of operations was 'established in Sec. 4. 3. 3. 3. .'With 
the addition of the concatenation operator, this order may be 
generalized and applied to string expressions as well as 
logical conditions. The complete order is: 

• - NOT highest 

^ A 

CAT 

Relationals 
AND ^ 

V 

OR . . lowest 

In illustrating the application of this precedence order, 
example (4) of Sec. 10.1.1 could have been written without 
parenthesis; i.e., M = D&eJf&G& ~>H 1 1 . "iH would be performed 
first, then the S’s from lef t-to-right : D&E, F&G& "|H, and finally 
the two | 1 s . Other logical meanings would have required 
parenthesis; e.g. , 

M = D&(E|F) &G& ~ l(H } I); 

As another example, consider the IF statement in 
Section 10.1.1.3. Again this could have been written without 
parentheses and no change in meaning: 

O • A I 

IF B[ jC = OCT 1 77' OR X^>5 AND FLAG1 = TRUE THEN... 

B [ | C would be performed first, then the relationals from left 

* « O * 

to right: B | | C = OCT'77’, X >5, FLAG1 = TRUE, then AND, and 
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finally OR. A different logical intent would have required 

parentheses; e.g. 

• * • 

IF(b] [ c = OCT'77' OR X >5)AND FLAGl = TRUE THEN... 


Of course, the programmer can take advantage of HAL's 
built-in precedence rules but he is advised to use parentheses 
when -in doubt in order to clarify the intent of the expression 
as it appears in the listing. 


10.2 Array Operations 

Most of the arithmetic and string operations in HAL 
can also be applied to arrays of appropriate data types, 
for example, 

EC] = [B] i ! [A] ; 

• • , e * 

[E] = [F] AND ([G] OR [H] ) ; 

IV] = [M] [W] ; 

are valid array manipulations. 

In general, operations with arrays are equivalent 
to operations with their components on a sequential 
component-by-component basis; i.e. by incrementing the 
"right-most" index first. Thus for two-dimensional arrays: 


[A] = [Bo- 
rneans A, , = B, . , A, = B, - , . . . . A — B . 

1,1 1,1 1,2 1,2 n , m n,m 

For array expressions and assignments, array dimensions 
must be compatible; i.e. if two arrays are involved in "an 
operation, they must be of identical dimensions. If only one 
array is involved, the other operand may be a single data 
item; e.g., A[B] is a valid product in that A multiplies every 
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component of [B] . Note that an array may never be assigned 
to a single data item. 

Some examples of array statements and their equivalents 
follow: 

1) DECLARE ARRAY (10, 10) A, B,C; 

[A] = [B] + [C]? 

This array statement causes the addition of components of 
[A] and [B] on a component-by-component basis. Each sum is 
assigned to the corresponding component of [A1 . The state- 
ment is equivalent to the following multiple "DO FOR - loops" 
DO FOR I = 1 TO 10; 

DO FOR J = 1 TO 10; 

A = B + C 
I,J- I,J I,J' 

END; 

END; 

2) DECLARE ARRAY (12 , 6) D,E,F; 

DECLARE G ARRAY (12,12); 

[D] = [E] [F]/2 + X; 

[G] = 0; 

The components of [E] and [F] are multiplied on a 
component-by-component basis; each product is divided by 2, 
added to the scalar X, and assigned to the appropriate com- 
ponent of [D] . In addition, all components of [G] are set 
to zero. These statements are equivalent to the following 
"DO FOR -loops"; 
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DO FOR I = 1 TO 12; 

DO FOR J = 1 TO 6; 


D I,J E I,J F I,J //2 + X; 


END; 


DO FOR J = 1 TO 12; 

G I,J = 0; 

END; 


END; 


10.2.1 Partitioned Arrays 

When array operations involve partitions of arrays 
the programmer is cautioned to remember" the sequential nature 
of array computations. Consider the following two examples: 

1) DECLARE A ARRAY (25); 

[A ^2 TO 25 = ^l- TO 24 7 
A 1 = A_NEW; 

The intention here is to shift the information in the array 
by one index position and incorporate new data into the. first- 
component of [A]'. What is the actual result? This may. be 
seen by writing the operations in sequence: 



A x = A_NEW; 

Unfortunately the "old" value of A^ is propagated throughout 
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A NEW 


the entire array. The final result for [A] would be A^ = 

'with the rest of the components set equal to the old value 
of A^. The. programmer could have accomplished the intended 
objective by writing 

[A] 2 T0 25 “ SCALAR (.[A] 2 T0 24 ^ ; 

A 1 ~ A _ NEW ? 

2). DECLARE B ARRAY (10,10) ; 

[B] *,5 = [B] -3,* ; 

The intention .here is simply to replace the 5th "column" 
of. the array by the contents of the 3rd "row". Note that both 
column and row represent one-dimensional arrays of 10 components 
each. The operations are performed as follows: 

B l, 5 = B 3,l ; 

B 2 , 5 = B 3,2 ; 

B 3, 5 = B 3 , 3 ; 

B 4 , 5 = B 3 , 4 ' 

. B 5,5 = B 3, 5 ' 

B 6 , 5 = B 3 , 6 ' 

* 

B 10 , 5 B 3,10 ? . . - 

aiid the result is wrong 1 That is, ^ appears both on 

'the right and left of the = sign and propagates into 

B and c . The programmer could have accomplished his 

3,55,5 

objective by writing: 

“ - [B] = SCALAR t[B], *); . ■ 

f ^ r 
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Thus, array manipulations do require some care and the 
programmer is urged to write out, in preliminary form, at 
least a partial sequence of operations in order to verify that 
the array statement will achieve the desired result. 

10.2.2. Functions of Arrays 

HAL built-in functions and programmer-defined 
functions may be given array expressions, of appropriate 
data-type, in the argument positions. Two classes of functions 
are of interest: 1} where the function's formal parameters 

or . definition, calls for single data items, 2) where the 
function's formal parameters , or definition, calls for at. 
least one array. (For built-in functions, the string-, arith- 
metic-, mathematical-, and matrix-vector-functions are of the 
first class; the linear array functions comprise the second.- 
See Appendix B.) 

10.2.2.1 Functions with Single Data Item Arguments 

When arrays are processed by a function designed ' 
for single data .item arguments, the result' is a sequence 
of operations with the function being applied to the 
components of the arrays, component- by- component . Thus, 
for example, consider the sine function where the argument 
is an array ..of scalars; i.e., • 

DECLARE ARRAY (10,5)A,B,; 

[B] = SIN ( [A] ) ; 

This statement is equivalent to the following "DO FOR -loop" : 
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DO FOR 1=1 TO 10; 

DO FOR J = 1 TO 5; 

B I,J “ SIN(A I,J)'* 

END; 

END ; . 

For a function requiring more than one single data item, 
multiple array arguments must be of identical "shape". For 
example, let VRESULT be a programmer-defined function returning 
a vector, thus 

VRESULT: FUNCTION (V, A, B) VECTOR (6) 

e 

• t 

and used in the statement 

[P] = M VRESULT ( [Q] , [A] ,B) ; 

where [P] and [Q3 have been declared as 4x2 arrays of six 
component vectors .and [A] is a 4x2 array of scalars. This 
statement is equivalent to the following sequence of operations: 
DO FOR I = 1 TO 4; 

DO FOR J = 1 TO 2; 

. P I /J: = 1 block (q IiJ: ,Ai ;J ,b) 

END; 

END; 

* 

.Note that the same values M and B are applied to the computation 
on every pass through the loop. 

Both of the above examples illustrate that the manipulation 
of arrays with this class of functions is straight forward and 
is simply a sequence of component-by- component operations. 
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10.2.2.2 Functions With' Array Arguments 

HAL functions written, or designed, to accept array 
arguments must produce single data item; results. For 

i 

example 

SUM ( [X] ) 

accepts an array argument and returns a single 'result. 

The effect might be viewed as a "reduction in dimension" . 
Consider the following examples: 

1) DECLARE A ARRAY (5), B ARRAY (5, 4); ‘ 

[A] = SUM ( [B] ) ; 

This statement is equivalent to the following sequence of 
operations : 

DO FOR I = 1 TO 5; 

Aj = SUMdB]^*); 

END? 

2) DECLARE ARRAY (25 , 25 , 25 ) A, B; 

^3: TO 8 , Q , * = m A x C[B] 1q T0 15 ^*)? 

The left hand side represents a two-dimensional (6x25) sub- 
array; the argument of MAX is a three-dimensional (6x25x£5) 
sub-r array. The statement is equivalent to the following 
"DO FOR -loops": 

DO FOR I = 3 TO 8; 

DO FOR J = 1 TO 25; 

A I,Q,J = MAX(tB1 I+7,J,* !; 

END; 

END; 
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Note that Q is specified at run-time and is outside the 
loop. 

In "reducing the dimension", as illustrated in the 
examples above, the array functions operate on the "inner- 
most" free index of the' array argument (see Sec. F of x 
Appendix B) . 

10.3 Manipulations With Mixed Data Types 

HAL permits the mixing of most data types within expressions 
and the assignment of one data type result to another data 
type target variable. The mixing of data types is accomplished 
through prescribed sets of implicit and explicit conversions. 


10.3.1 Implicit Conversions 

Some representative examples of implicit conversions 

follow: 

1) DECLARE INTEGER I-,J; 

J = A + I; 

The addition (subtraction or multiplication) of 
an integer and a scalar causes conversion of the integer to 
the scalar type. The assignment of a scalar result to an integer 
target causes conversion of the scalar to integer before assign- 
ment. 
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2) DECLARE B BIT(IO), I INTEGER; 

X = B + I? 

The addition {subtraction or multiplication) of a 
bit string and an integer causes conversion of the string to an 
integer. The assignment of an integer result to a .scalar' target 
causes conversion of the integer to scalar before assignment. 

3) DECLARE BIT (10 ) A,B ,C; 

• • • 

A = B/C; 

Division is defined as a scalar operation. Bit string 
operands are converted to scalars by first converting the strings 

i 

to Integers and then to scalars. The quotient is always a scalar 
quantity. The assignment of a scalar to a bit target variable 
causes conversion of the scalar first to integer and then to 
bit string before assignment. 

4) DECLARE C CHARACTER (25) VARYING; 

/ — 

C = ’THE ANSWER IS' | |X; 

The concatenation of a character string and a scalar, 
-integer or bit string causes conversion of the scalar or integer 
to a character string, and the conversion of a bit string first 
to an integer and then to a character string. 

.In general, but with certain restrictions, implicit conver- 
sions within expressions follow a progression: 


i . e. , 


from b it- to- integer - 


{ to-scalar-to-character 
to-character 


B -> I -> 


S ->■ C 
C 
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and from single precision (SP) to double precision (DP) . Vector 
and matrix operands cause the same effects as scalars. 

In assigning expressions , conversions go both ways depending 

i 

upon the data type of the target variable; i.e., either 


B •* I 


S + C 




c 


or 


s I -> B 

For example, if a bit string (B) is assigned to a scalar target (S) , 
the string is first converted ..to an integer and then to a scalar 
(B -*■ I -> S) ; if a scalar is assigned to a bit string', the scalar 
is first converted to an integer and then to a bit string (S 'I -+• B) . 

The following tables summarize the implicit conversions 
when two operands of different types are involved in expressions 
or assignments: 


A. Expressions 


' V ^\Qperand 2 




• 

Operand^lT^\^ 

I 

s 

B 

C 

I 


I+S 

B+I 

i+c 

S 

I->S 

- 

B-s-I^-S 

S-*-C ■ 

B 

• B-+I 

B^I->S 

_(2) 

_(!) 

C 

I->C 

S-s-C 

B^I^C 

- 


Notes: (1) The concatenation of a character string and a 

bit string is only valid if the character string 

/ • 

is the left hand operand (i.e., c[[x). 

(2) When bit strings are used in arithmetic operations 

the strings are converted to integers. 
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B*. Assignments 


' s '\Expres- ■ 
. ^\sion 
m ' >4 2 ) • 

Target 

I 

S 

B 

C 

I 

- 

- s->i 

B^I 

(1) 

• S . 

I+S 

- 

■ * 

(1) 

B 

3>B- 

S-*-3>B 

- 

(1) 

C 

3>C 

s->c 

B-»I+C 

- 


Notes: (1) Character expressions may not be assigned to 

arithmetic or bit string target variables. 

' (2) Vector, matrix, and array expressions may only 
be assigned to vector, matrix and array target 
variables respectively. Structures may only be 
assigned to structures of identical component 
. declarations. 

10.3.1.1 Conversion of Arithmetic Literals 

Arithmetic, lietrals exhibit the following default data 
types and precision: 

a) if the literal's value has no fractional part (e.g., 

6,.- 6.0, . 12E+2B-1, etc.), it is considered to be an 
integer data type. 
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b} if the literal's value has a fractional part (e.g., 

6.1, .123, 6.024E-5, etc.), it is considered to be 
a scalar data type, and its precision will be determined 
by context, if possible; otherwise default precision will 
be used. 

Subsequent conversion within expressions of mixed data types, 
follows the rules described above, in Sec. 10.3.1. Note that 
double precision representation of literals will be utilized when 
required within an expression, i.e., when the literal is involved 
with a double precision operand. 

EXAMPLES _ ' - . 

1. X = I + 3.1; 

Presuming that I is an integer, it is converted to a 
scalar (because 3.1 is a scalar) and added to 3.1. The 
result is assigned to the scalar X. Since the precision 
. of 3.1 cannot be determined by context (i.e., being added 
to an integer) default precision will be used. The 
standard default is double precision. 

2. DECLARE PRECISION (10 ) X, Y; 

X = 4.06372 Y; 

Since Y is a double precision scalar, the literal 4.06372 
.is utilized as a DP quantity and multiplied by Y. 

3. REPLACE K BY '1060'; 

A = (K + 3.064) B; 

K is treated as an integer and therefore converted to a 
scalar before being added to the "scalar literal", 3.064. 
Both literals will be expressed in default precision. 
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10.3.2 Explicit Conversions 


Four functions are provided for the explicit conversion 
of one data type to another. The four are: 

INTEGER 

SCALAR 

BIT 

CHARACTER 

These functions*may be applied to integer, scalar, bit- and 
character- string arguments, and result in the named data types. 
Thus, 

I = INTEGER (X/Y) + J; . 

A - BITg T0 12 11 B; 

/ 

C = CHARACTER (X) | [CHARACTER (J) ; 

are examples of the use of conversion functions. The following 
table describes the resulting conversion for each function and 
type : 


^\^Type 

Function^-^^ 

I 

S 

B 

C 

INTEGER 

- 

S-KT 

B+I 

C->I (1) 

SCALAR 

I->S 

- 

B^I->S 

C->S < ' 1 ^ 

bit< 3) 

I -KB 

s-,b< 2) 

- 

C-HB * 2 * 

CHARACTER 

ItC 

s+c 

B+I+C 

- 


Notes: (1) INTEGER and SCALAR only accept character string 

arguments which represent whole numbers and scalars 
respectively. For example, INTEGER ( 1 30672 ' ) and 

* Also see Sec. 9.2. 
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(2) 


SCALAR ( ' 362. 0 6E+1 ) are valid applications. 

BIT converts scalars and character strings directly 
to bit strings. That is , a floating point scalar 
argument would result in a 32-bit bit string, the 
string representing the 360/75 "bit-pattern" of the 
floating point quantity. A character byte is "converted 
to its 8 bit pattern. 

(3) BIT and CHARACTER may be subscripted in order to 

select particular bits and characters, or to modify 
usage ' (see Section 9.3). A character string which 
represents binary, octal/ decimal or hexadecimaladigits 
can be converted to a corresponding bit string; i.e.. 


BI W' 1011 '> 

becomes 

1011 

BIT (?OCT t ' 657 ' ) 

becomes 

110 101 111 

BIT SHEX ( ' FAD '>' 

becomes 

1111 1010 1101 

E UW (,78,) 

becomes 

1001110 


Likewise- bit strings can be converted to binary, octal, decimal 
or hexadecimal character digits; e.g., 

CHARACTER @HEX (BIN* 111110 10') .. . 

In addition to using conversion functions within expressions, 
the ."pseudo-variable" SUBBIT is defined, and may appear on the 
left’hand side of an assignment statement. That is, a bit string 
expression may be. assigned directly to the bit representation of 
other data types. For example, 

SUBBrT 6 TO 20 (S) ~' c 
or 

, 

SUBBIT (Cg ) = HEX 1 9F ’ ; 
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Through the use of. the SUBBIT pseudo-variable, the basic bit 
pattern (machine representation) of any data type may be manipulated 
by' the programmer. 

10. .4 HAL Operations A Summary 

HAL provides the programmer with full facilities for: 

1) scalar and integer arithmetic 

t 

2) vector and matrix arithmetic 

3) bit- and character- string manipulations 

4) array operations 

5) structure handling 

Most of. the common operators are valid with most of the data types 
as operands and yield results that might be expected intuitively. 
However, some operations with particular data types are not 
allowed, and others imply specific conversions. A summary of 
all HAL operations, involving one or two operands, is included 
in Appendix C. For most operations the valid result data type 
(of error) and the implicit data conversion (s ) are indicated. 

The tables in Appendix C have been taken from the HAL language 
specification document (Reference 1) and are presented here for 
programmer conveni enc e . 
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11. Additional Program Organization and I/O 

11.1 Organization 

In Sec. 7 the basic .features of program organization 
and name scope v/ere presented in the context of HAL^,. For 
the most part, these features also apply to the full 
HAL language. The additional data' types:' integer, bit- 
and character-strings, arrays of these, types *,and structures 
of all data types, follow the same rules with respect to scope 
and DECLARE and OUTER statements , as scalars, vectors and 
matrices. 

It is the intention of this section to describe, to 
the programmer, additional details of program organization 
bearing principally upon the logical arrangement of blocks 
of code within a program and' the relationship of 'one program 
to another, and to the Symbolic Library. 

11.1.1 Declaration of Labels 

It was pointed out in Sec. 7.2 that the scope of 
labels, in a HAL program, generally follows the same rules 
as the scope of names. The statement or procedure label must 
be defined before its use, or, at least, in the block in 

j * 

which it is used. 

When a label appears after its use in a GO TO or 
.CALL statement --and outside the block in which it is 
used, then the label must be declared explicitly. For 
example : 
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A: PROGRAM; 

DECLARE X LABEL; 

•' B: PROCEDURE; 

, ' o 

« 

GO TO X; 

.‘"close B ; 

X : Y = LOG (P ) ; 

* 

CLOSE A; 


The label X appears in the listing after GO TO X and outside 
B, and therefore requires the DECLARE statement. The LABEL 
attribute may not be factored in a DECLARE statement; i.e., 

, •• DECLARE LABEL A,B,C; 

is not permitted. 

11.1.2 Declaration of Function Names 

Function names must always be defined before their 
use, even if the FUNCTION statement and function reference 
appear within the same block. 

On occasion it may prove awkward to locate in 
the listing, all function blocks prior to the statements 
in which the function names are actually used. This require 
jnent may be avoided by declaring the function name in a 
DECLARE statement. For example; 
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#1 


*2 


A: PROGRAM; 

ZAP: FUNCTION VECTOR; 


A: PROGRAM; 

DECLARE ZAP JUNCTION VECTOR 


-CLOSE ZAP; 

B: PROCEDURE; 

Y = X + ZAP; 


CLOSE B; 


B: PROCEDURE ;! 

- Y = X + ZAP;' 

* 

CLOSE. B; 

ZAP: FUNCTION VECTOR; 


CLOSE A; 


• CLOSE ZAP; 
CLOSE A;- 


In #1, the function ZAP is recognized in B because its definition 
precedes its use. In £2 the definition has been relocated 
after its use, therefore ZAP must be declared, first, using 
a DECLARE statement.. 

The DECLARE statements for a function have the" following 
form: - • 

■ DECLARE A FUNCTION type dimensions precision; 

The type and attributes may be written in factored form; thus 

DECLARE FUNCTION MATRIX (4, 4) 

, • ' PRECISION (10) A,B,C; 
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11.1,3 Communication Between Programs 

, The program PROGRAM- CLOSE block) is the ! only 

’ - 1 

independently compilable HAL program-unit. A program can 

~ ' i 

i 

call another program and communicate data through a common, 
data pool (COMPOOL) . Data may not be transferred between 
programs by lists of arguments and formal parameters as 
with procedures and functions. 

11.1.3.1 The COMPOOL 

The COMPOOL is a centrally defined and centrally 
maintained group of statements. The statements are limited 
to REPLACE, OUTER and DECLARE, and the attributes in the 
DECLARE statements are further restricted to LABEL, FUNCTION, 
dimensions and PRECISION (also VARYING for character strings) . 
The names and labels declared in the COMPOOL are potentially 
known to all programs and, in fact, provide the only 
means of communication between programs . 

" i 

In order to take advantage of the COMPOOL as a data . 
sharing mechanism, the programmer must include the COMPOOL 
statements before the PROGRAM statement during compilation. 

In a sense, the COMPOOL is placed "outside" the program block 
and its scope encompasses the program. If another program 
is compiled in a similar manner, using the same COMPOOL, the 
variables declared in the COMPOOL will be recognized in both 
programs. Thus, for example. 
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INCLUDE COMPOOLA ... . . ' INCLUDE COMPOOLA. 

A: PROGRAM; , B: PROGRAM; 

c - * e 

• ‘ . , ■ * 

• • 

CLOSE A;- . • - CLOSE B; 

It should be noted that if the COMPOOL is included after the 
PROGRAM statement; i.e., within the program block then its scope 
can encompass only the program itself, and declared variables 
cannot be shared by another program. 


ll;i.3.2 The Symbolic Library and the INCLUDE Directive 

The COMPOOL statements. reside in a symbolic library 
and are entered into the library using specific 360/75 utility 
commands (to be specified at a later date) ; ' Once in ■ ' 

the library, the COMPOOL may be retrieved and compiled with any 
HAL program by using the compiler directive* 

INCLUDE 

along with certain other utility commands. • The name 
associated with INCLUDE may be up to 8 characters in length with 
the first being an alphabetic character. Thus 

INCLUDE COMPLlO 6 


or 

INCLUDE NAVDATA 
are valid directives. 

The symbolic library may also be used to store any symbolic 
source code; e.g., complete programs, procedures, single statements. 

The library entries are available to all programs and may be 

* Compiler directives require a D in column 1 of the input source code. 
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included in the compilation of a program, at any point, by utilizing 
the INCLUDE directive with the proper library name. Statements 
from the Symbolic Library will then be compiled as if they were 
supplied by the programmer in his source code. 

11.1.4 Program Calls 

The CALL statement may be used to call one program from 
another program. The logical result is similar to calling a 
procedure; i.e., control is transferred to the program called 
and returned when the program is completed. The CALL statement 
is of the form: 

. CALL program-name; • 

In calling a program: 

1) no arguments may be passed; all communications must 
be through a COMPOOL. 

2) All static variables are allocated on program 
initiation, and released when the program ends; i.e., 
variables with the INITIAL attribute are initialized, 
others take on unspecified values. 

3) Control is returned to the caller at the statement 

. following the CALL statement, when a RETURN or CLOSE 
statement is reached. 

4) Control may be returned to the executive by executing 
a TERMINATE statement; i.e., 

TERMINATE ; 

5) A program cannot call itself. 
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■ 11.1.4.1 Program Declaration 


In order to call a program, its name must be 
known. within the calling program. This is accomplished by 
the DECLARE statement 

DECLARE A PROGRAM; 

..This statement may be placed in the COMPOOL, ^elsewhere in 
the symbolic library, or in the program body. In • any case 
the declaration must appear before the name of the program 
is used in a CALL statement. 

11.1.4.2 Example 

-A: PROGRAM; 

DECLARE XX -PROGRAM? 

CALL XX; 

B: PROCEDURE; 

DECLARE YY PROGRAM; 

• 

CALL XX; 

CALL YY; 

« 

CLOSE B; 

CLOSE A; 
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.11.2 Input-Output 

. In this section the I/O control functions and the standard 

i 

1 

data formats complementing Sec. 7.6 will be presented. The material 

t 

is specialized to card reader and line printer types of! devices. 

I 

The programmer is urged to consult the HAL language specification 
document (Reference 1) for a more general treatment. 

11.2.1 Read and Write Control Functions 

External data media, either providing input information 

to a HAL program or accepting output data, are treated' as two- 

dimensional devices. Data occupies a grid consisting of 

horizontal lines with each line being made up of column positions; 

for example, a deck of punched cards where each card is a line, 

or a 132-column high speed printer. The "read mechanism" or 

"write mechanism" is located at some point on this two-dimensional 

grid, and moves in a conventional way along each line and from 

line to line as reading or writing takes place. Read- and 

write-control functions are used to move the "read mechanism" or 

"write mechanism" to any reachable location desired in readiness 

✓ 

for reading or writing. The definition of "reachable "varies 
depending on the physical device involved. . 

11.2.1.1 Read ’ ■ 

In this section discussion is restricted to the card 
reader as -.a read device. The "read mechanism" is located on the 
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two-dimensional grid by the read-control functions SKIP, TAB 
and COLUMN. A READ statement without these functions will 
always begin on column 1 of the next card, and will then read 
.'consecutive data fields, card after card until all variables 
have been assigned values, unless interrupted by a semicolon 
terminating a data field. In this latter case, variables not 
having yet been assigned values retain their previous ones. 
Following is an example of a simple READ statement: 

' .READ (device )A, B, C, D, E, F, ... etc.; 

The SKIP read-control function controls the vertical position 
•of the "read mechanism"; that is, it controls which card is 
next to be read. The form is 

SKIP (N) , where N >_ 0 • 

A SKiP (0) in the middle or at the end of a list of variable 
•‘ names -has no effect. A SKIP(O) before the first variable name 
.in a READ statement causes reading to continue on the same card 
as that last read by the previous READ statement. Multiple 
SKIP (N) specifications are cumulative in effect. Any SKIP 
.function appearing .be'f ore the first variable name overrides 
the implicit SKIP(l) which normally causes reading to start in 
the next card. * 

In the example 

READ ( CARDS ) A , B, SKIP (3), C, SKIP{5), D; 
values for A and B are on the first card to be read, the value 
for C is on the 4th card, and the value for D on the 9th card. 


See footnote of Sec. 7.6.2. 
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There is no relocation of the horizontal position of the "read- 

mechanism" during the skips. 

The TAB and COLUMN read-control functions control the 
. \ 
horizontal position of the "read mechanism", at which reading 

is to start or resume. The TAB function moves the "read 

mechanism" left or right by the specified number off-columns. 

Its, -form is • 

TAB (N) , where 

N<0: move to left; 

N— 0 : no effect; 

N>0: move to right. 

N must be of such a value that the column arrived at is in 
the range 1 through 80 . The COLUMN function moves the "read 
mechanism" to the specified colume. Its form is 

COLUMN (N), 1<N<80 

Multiple TAB functions are cumulative. A TAB or COLUMN 
function appearing before the list variable name 'in a READ 
statement overrides the implicit COLUMN ( 1 ) normally causing 
reading of a card to start at column 1. 

In - the example 

READ (CARDS] A, B, TAB { 6 ) , C; 

/ 

READ (CARDS) SKIP(O), COLUMN (7), D,E,F; 
with the data fields 
column (1) (7) 

-5.6, 7.2E+5, 113, 'SECONDS' 

r 

the first READ statement causes A, -.B and C to take the values 
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-.5-6, 7.2E+5, and 'SECONDS* respectively. The second READ state- 
ment rereads the same card starting at column 7, causing D, E 

and F to take the values 7.2E+5, 113, -.and 'SECONDS' respectively. 

j 

1 

11.2.1.2 Write - i 

> I 

. . . . . . ’ 

In this section discussion is limited to the line 

printer as a write device. The "write Mechanism" is located in 

the two-dimensional grid by the write-control functions LINE , ' 

SKIP, PAGE, TAB and COLUMN. A WRITE statement without these 

functions will always begin at .column 1 of the printer, and 

print out the values of the variables and/or expressions in 

turn, each data field separated from the next by five blanks. 

When the end of the line is nearly reached, and the next data 

field is too long to be printed, one of two things happens'. 

If the data is numerical, printing is deferred to the beginning' ' 

of the next line. If the data is character, then printing 

continues until the end of the line is reached and then the 

remainder of the field is printed at the beginning of the next 

line. Following is an example of a simple WRITE statement: 

WRITE (PRINTER) A, B,C+D 2 ,E, .... ; 

The TAB and COLUMN write-control functions have the same 

effect as when used as read control functions. The valid 

range of columns is'l through 132, .however. Note that -if -use 

of the functions to move the "write mechanism" to the left, is 

made before printing, whatever was in those column positions ' 
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'of the same line beforehand, is overwritten. Thus for example 
. ‘ WRITE (PRINTER) 5132, COLUMN (1) ,-66; 

causes. the following line to be printed ;(see Sec. 11.2., 2.5) . 

. I 

Column (1) (11) 

—66 j 

because -66 overwrites 5132. / - : A way. of causing multiple over-’ 
writing of characters is indicated later. Use of the TAB or 
COLUMN functions between two entries in the WRITE statement 
inhibits the 5-blank interfield spacing normally occurring 
at that point. 

The LINE, PAGE, and SKIP write-control functions control - 
the vertical position of the "write mechanism". The PAGE 
function is of the form 

PAGE (N) , . N>_0 . ■ . - 

and causes the printer to advance N pages, remaining on’^the 
same line relative to the head of the page. (Each page has • 

58 lines.) If N=0 the function is ignored. For example if 
WRITS (PRINTER) X,PAGE(2) ,Y, PAGE (0) ,Z; 
causes printing of the value of X on line 7 or the current 
page, then the value of Y will be printed on line 7 of. the next 
page but one. The value of 2 is printed on line 7 of this same 
page immediately following Y. 

The SKIP write-control function operates in a similar 
way to the read-control function. The only difference in 
behavior results from the use of SKIP(O) in the middle of a 
list of variables and/or expression. This behavior is best 
demonstrated by an example: 
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WRITE (PRINTER) 'RESULT' ,SKIP (0) , COLUMN (1) , 1 1 ; 

causes the following to be printed: 

! 

RESULT 

\ 

Note the overprinting, which would not have resulted from the 
statement 

WRITE (PRINTER) 'RESULT' , COLUMN (1) , ' ' ; 

which just results in the following being printed: 

In SKIP(N), N may be any positive number: it is immaterial 
whether or not page boundaries are crossed. * • : 

The LINE write- control function forces printing to con- • 
tinue on the line specified. Its form is' 

LINE (N) , l£N<5 8 . 

If N is equal in value to the current line number, tne ertect- • 
is the same as a SKIP(O) . If N is greater than the current line 
number then the "write mechanism" moves to that 'line on the 
current page. If N is less than the current line number then 
the "write-mechanism" moves to that line on the next page. For 
example if 

WRITE (PRINTER) X, LINE (20) ,Y,LINE(1) ,2; 
causes the value of X to be printed on line 15 of the current 
page, the value of Y will be printed on line 20 of the same 
page, and 2 on the first line of the next page. 
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'll .2.2 Standard Data Formats 


11.2.2.1 Numerical Input Data 

l 

Numerical data may be input to a HAL program as a 

i 

signed (+ is optional) decimal number (with or without a decimal 
point) and raised, optionally, to the powers .10, 2 or 16. The 
format is as follows: 


+decimal number< 


tinteger 


where E, B and H represent 10, 2 and 16 respectively. Internal 
blanks are not allowed. Data may contain repeated powers. 

Some examples follow: 

369.0 

8 

-8.36E+2B-1 
+0.123E6B-3H4 
IE- 7 5 
.337 

Numerical data may be assigned to integer, scalar, vector, matrix 
and bit string data types. For integers and bit strings the 
data form must represent integral values. For a bit string 
assignment, data is first converted to a full word bit string 
and then assigned to the corresponding bit variable named in 
the read statement. The following statement could accept the- 
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examples shown above: 

READ (CARDS) I, B,V, A; 

I is an integer, A is a scalar. 

11.2.2.2 Character Input Data 

Character data may be input to a HAL program as a 
string of characters enclosed by single quote marks. -Thus, 
for example, 

' A- B 1 

•c’ 

’57. 3/C' 

' NUMBER JDNE ' 

’ON, OFF, OFF, ON' 

Bit string data may be input directly in binary , octal’, decimal 
and hexadecimal forms by representing the data as a character 
string and then interpreting the string within -the HAL program. 

For example, suppose it is desired to assign '-a bit string with 
the octal number 37776. The data may be input as 

•37776' 

and the HAL statements might be: 

DECLARE B BIT (15) ; 

DECLARE C CHARACTER ( 5 ) ; 

/ 

READ (CARDS) C,* 

® = BIT eocT ^ )7 
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This last 'statement interprets the character string as an octal 
bit pattern and converts the quantity to a bit string. 

11c 2. 2.3 Non-standard Data Formats 

l 

It is possible for a HAL program to accept data' in 
forms other than those described above. The .READALL statements 
is defined for this purpose. It is suggested that the programmer 
consult the HAL language specification (Ref. 1) if he desires 
to use non-standard input data. 

11.2.2.4 Scalar Output Data 

The standard single precision scalar output 'data from 
a HAL program is presented in Sec. 7.6.3. For double precision 
the number of decimal digits is increased from 8 to 17. The 
total field size is 14 character positions for single precision 
numbers, and 23 character positions for double precision- 
numbers . 

11.2.2.5 Integer and Bit String Output Data 

Integer and bit string data are output from a HAL 
program as signed integral values (a positive number- is indicated 
by a blank). The total field size is 11 character positions. 
Leading zeros are suppressed and appear as blanks, except for 
a single zero value. For example , * the follov/ing WRITE state- 
ments : 
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WRITE (PRINTER) B; 

WRITE (PRINTER) J; 

WRITE (PRINTER) K; 

WRITE (PRINTER) C; 
might result in the print-out, 

column (1) (11) 

5 

-4673 

0 

' 2684736 

Note the conversion of bit strings to integer form. 

11.2.2.6 Character Output Data 

Character data output from a HAL program appears as 
a variable size field equal to the string length -of the character 
variable, or expression, in the WRITE statement. For example, 
the statement 

WRITE (PRINTER) 'DISTANCE- ' | |a| | ' MILES'; ‘ 
might produce the printed line 
column (1) - (30) 

DISTANCE- 8 . 6034 76 8E+06 MILES 

Note the blank characters after the = sign and before MILES. 

Bit string data may be output in binary, octal, decimal or 
hexadecimal form by first converting the string to characters; 
for example, the statement 
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WRITE (PRINTER) CHAR @0CT (B) ; 

would' result in writing a bit string of value = 101110100 in 
the form: 

564 

The HAL language specification document (Ref. 1) contains 
other examples of character output data. 
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Appendix A 
HAL Keywords 

(not including built-in functions) 


The following words are -HAL keywords and are usually 
unavailable for any other use. 


ACCESS 

AND 

ARRAY 

ASSIGN 

AT 

AUTOMATIC 

BIN 

BIT 

BITLENGTH 

BY 

CALL ■ 

CASE 

CAT 

CHAR 

CHARACTER. 

CHARLENGTH 

CLOSE 

COLUMN 

CONSTANT 

DEC 

DECLARE 

DO 

ELSE 

END 

ERROR 

EVENT 

EXCLUSIVE 

FALSE 


FILE 

•FOR 

FUNCTION 

GO 

HEX 

IDCODE 

IF.. 

IN 

INCLUDE 

INDEPENDENT 

INITIAL 

INTEGER 

LABEL 

LATCHED 

LINE 

MATRIX 

MATRIXDIM 

NOT 

NONQUALIFIED 

OCT 

OFF 

ON 

OR 

OUTER 

PAGE 

PRECISION 

PRIO 

PRIOCHANGE 


PRIORITY 

PROCEDURE 

PROGRAM 

QUALIFIED 

READ 

READALL 

REPLACE 

RETURN 

SCALAR 

SCHEDULE 

SEND 

SIGNAL 

SKIP 

STATIC 

SYSTEM 

TAB 

TASK 

THEN 

TERMINATE 

TO 

TRUE 

UNTIL 

UPDATE 

VARYING 

VECTOR 

VECTORLENGTH 

WAIT 

WHILE 

WRITE 
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Appendix B 

HAL Built-In Functions and Pseudo-Variables 

The built-in functions and pseudo-variables available in HAL 
are given in this appendix, and are presented in alphabetical 
order under their respective headings. The allowable data-types 
fpr the arguments are indicated using the follox^ing abbreviations: 

I : integer 
S: scalar 
V : vector 
M: matrix 
B : bit 
C: character 

A. Conversion Functions (See Secs. 9.2.1, 9.2.2, 10.3.2) 

Arguments: I,S,V,M,B,C 

1. INTEGER 

2. SCALAR 

3. -BIT 

• 4 . CHARACTER 

' 5 . VECTOR 

6 . MATRIX 

B. String Functions 

1. INDEX (string, config) 

Arguments: B,C. Searches a string for a specified 

bit or character configuration. The 
starting location of that configuration 


B— 1 




within the string is returned as an integer 
data type. 

2. LENGTH (string) 

Arguments:. B,C. Finds the string length and returns it 
as an integer data type. 

3. LJUST (character-string) 

Result: LJUST removes all the leading blanks of a 

character string operand and returns the 
resultant character string. 

4. RJUST (character-string , p) 

Result: RJUST creates a new character string of 

length, p. The character string argument is 
truncated on the left, or padded with blanks 
on the left, depending on whether its length 
is greater or less than p. p is a scalar 
expression which is- rounded to the nearest 
integer before use. 

C. Arithmetic Functions (B,I,S) 

These functions return the same data type as the argument 
(bit arguments are first converted to integers; the function 
returns an integer). Array arguments yield array results. 

1. ABS 

Finds the absolute value of the argument. 

2 . CEILING 

Determines the smallest integral value that is 

greater than or equal to the argument. 


B-2 



3. 


FLOOR 


Determines the largest integral value that does not 
exceed the argument. 

4. ROUND 

Rounds the argument to nearest integral value'. 

5. SIGNUM 

Returns 0, +1 , -1 as argument is zero, positive, and 
negative, respectively. 

6. SIGN 

Returns +1, -1 as argument is positive or zero,. and 
negative, respectively. 

7 . TRUNCATE 

Returns 0 if argument is less than +1 but greater 
than -1; otherwise returns equivalent of SIGN (argument) 
times the largest positive integral value that does not 
exceed ABS (argument) . 

8. MOD ( a , b ) 

MOD extracts the remainder c such that (a-c)/b=N, where 
- N is an integral number. c is the smallest positive 
number that must be subtracted from a in order to make 
N an integral number. 

D. Mathematical Functions 

These functions return a scalar data type. Arguments may 
be B,I,S. (Bits and integers are converted to scalars.) Array 
. arguments yield array results . 
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1 . ARCCOS 


Trigonometric cosine; argument in closed interval [-1,1] 
results in closed interval [0, ir] . 

2 . ARCCOSH 

Inverse hyperbolic cosine; arg not less than 1. 

3. ARCS IN 

Inverse trigonometric sine; arg in closed interval 
[-1,1] ; result in closed interval [-ir/2, tt/2J . 

4. ARCSINH 

Inverse hyperbolic arc sine; arg any value. 

5 . ARCTAN 

Inverse trigonometric tangent; arg any value; result 
in open interval (-tt/2, ir/2) . 

6 . ARCTANH 

Inverse hyperbolic tangent; |arg[<l. 

7. COS 

Trigonometric cosine; arg in radians; jargj<Kl. 

8. COSH 

Hyperbolic cosine; jargj<K3. 

9 . EXP 

Exponential, (e ar ^) ; |arg|<K3. 

10. LOG 

‘ Natural logarithm; arg positive and non- zero. 

11. SIN 

Trigonometric sine; arg in radians; |arg|<Kl. 

12. SINK 

Hyperbolic sine; [arg|<K3. 
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13. 


TAN 


Trigonometric tangent; arg in radians; arg may not be 
an odd multiple of tt/2; |arg|<K2. 

14. TANH 

Hyperbolic tangent; arg any value. 

15. SQRT 

Square root; arg positive. 

Note: Kl, K2 and K3 are upper limits which depend upon 360/75 

machine characteristics (to be supplied at a later date) . 

E. Matrix^Vector Functions 

Arguments may be vectors or matrices (as applicable) . Array 
arguments yield array results. 

1. ABVAL . - . 

Absolute value of magnitude of vector; argument may be 
a vector of any length. 

2 . AD J 

Adjoint; argument is invertible square matrix of any 
dimensions; result is equal to DETERMINANT (argument) times 
INVERSE (argument) . 

3 . DET 

Determinant; argument is a square matrix. 

4 . INVERSE 

Inverse; argument is square matrix; result is inverse 
if argument is invertible. 

5. TRACE 

Trace; argument is square matrix; result is sum of 
diagonal matrix elements. 
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6. . TRANSPOSE 


Transpose; argument is matrix of any dimensions; result 
is the interchange of the rows and columns of the argument. 


7. UNIT 


Unit vector; argument is vector of any length; result 

i 

i 

is a vector of magnitude 1 and in line with argument. 


F. Linear Array Functions 

These functions have the following general format: 

Jt 

function-label (single-operand) 

where the function will operate on the. "linear array" representing 
the "inner-most" free index of the argument'. The single-operand 
may be of (B,I,S,V,M) data types or arrays of these types. The 
following table indicates the array shape and dimension of the 
function result. 


.Argui^ 

[X]^ 1) 

[x] (1 i 

a,b 

<=>? 

I> 

[V] a,b:* 

* 

M 

m,n 

: * 

a,b :m,n 

Function 
Label . 

a< 2 > 

[A]< 2 > 

S 

IS] 

a,b 

ivi 

m 



Subscripts indicate shape and dimension (i.e., array-shape : dimension) 
£ = vector length; m,n = matrix rows, columns; a,b = array shape. 

(In general, the argument array shape may be a,b,c,... etc.) 

NOTES : 

(1) X may be bit string, integer or scalar 

(2) A is an integer if X is a bit string or integer 

(3) S indicates scalar 
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The linear array functions are : 

1. SUM 

Sums over inner-most free index. 

2 . PROD 

Forms product over inner-most free index. 

3 . MAX 

Finds maximum element value over inner-most free index. 

4 . MIN 

Finds minimum element value over inner-most free index. 



B— 7 



.'.3 . . DECLARE D ARRAY ( 10 ) VECTOR (6) ; 

SUM ([D]) results in an array 'of scalars of length 10. 

Each scalar is the sum of the 6 components of each iof the 
10 vectors. 

G. Miscellaneous Functions 

1 . RANDOM 

Result is the current base random number in the 
pseudo-random number generator. This function enables 
the programmer to make successive runs of a. program 
without repeating sequences of pseudo-random numbers . 

2. RANDOMG 

Selects a random number from a Gaussian distribution. 

3 . TIME ( . 

Returns current time as an integer. 

4 . DATE 

Returns current date as an integer. 

H. Pseudo-Variables 

A pseudo- variable/ in HAL/ is a function that can only 
appear on the left of an equal sign {=) in an assignment or 
DO statement. The only defined pseudo-variable is SUBBIT. 

See Sec. 10.3.2. 
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Appendix C 


Summary of HAL Operations 


The following tables summarize the allowable operations 
between two operands. In most cases the valid result- type 
(or an error) and any implied data conversions are indicated 
within the boxes. 
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Operation Prefix 

■ ■ 

operand .. •• 

' ‘ \ , 4 ' 

1 ' 1 — 11 { — 

t 

t , * 'l . ’ 

\ - \ 

•. Q:, NOT.' 

— ; j — : j , 


OPERAND 


INTEGER 

' SCALAR 

l 

* 

VECTOR • 

‘ ’MATRIX 

; 

, BIT STRING 

CHARACTER 

STRING 

P 

INTEGER 

P 

SCALAR 

p 

VECTOR : 

'p 

MATRIX- 

P Q 

INTEGER BIT 
3-vI* STRING 

t 

ERROR 


P refers to P- group of. operators’ shown above. 
Q refers to Q-group of operators shown above. 


Btl„ means conversion from bit to integer 


















Operation Addition & Subtract 


OPERAND, - I OPERAND,,’ 


OPERAND, 


OPERAND. 


INTEGER 


SCALAR 


VECTOR 


MATRIX BIT STRING 


CHARACTER 

STRING 


INTEGER 


INTEGER 


SCALAR 

■k 

I+S 


ERROR 


ERROR 


INTEGER 


ERROR 


SCALAR 


SCALAR 


SCALAR 


ERROR . 


ERROR 


SCALAR ' 
. B+I+S 


ERROR 


VECTOR 


SRROR 


ERROR 


VECTOR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


i! MATRIX 


ERROR’ 


'ERROR 


BIT STRING ' . INTEGER SCALAR 

V t . * 

B+I ‘ B+I-+S 


ERROR 


ERROR 


■ INTEGER 


ERROR 


CHARACTER 
STRING ’ 


ERROR • 


ERROR 


ERROR .■ 


ERROR” 


ERROR 


ERROR 


*I-*S means conversion of .integer to scalar 


dimension check 


Table 




Operation Multiplication: 


. OPERAND^ ' 


, OPERAND 2 


j ! 1_ 


\ OPERAND 2 
OPERAND^. 

INTEGER. • 

' .SCALAR 

• 

' VECTOR 

-■ ' MATRIX 

BIT STRING 

CHARACTER 

STRING 

| INTEGER 

* INTEGER 

SCALAR. 
■ I-*S 

, \ VECTOR. 
I-+S 

MATRIX ■ 
I+S 

INTEGER 
B-KT . 

ERROR 

1 ■■ 1 ■ ■ ■ - 

SCALAR 

• 

SCALAR 

I->-S 

SCALAR ' 

VECTOR 

MATRIX 

. 

SCALAR _ 
•B+I+S 

: . : ERROR 

. ..VECTOR 

VECTOR 
• I-*S 

■ VECTOR 

MATRIX (1) 
SCALAR (2) • 
VECTOR C3)' 

VECTOR ■ 

a 

VECTOR 
B-v I-vS 

ERROR 

MATRIX 

MATRIX 

I+.S 

■MATRIX 

VECTOR '• 
' d 

MATRIX 

a 

MATRIX 

B+I+S 

ERROR ‘ 

3IT STRING 

. INTEGER 
B*I 

SCALAR 

B+I->S 

VECTOR 

B-^I+S 

■ MATRIX 
B+I+S 

. • INTEGER 
B+I , B+I 

' 

. ERROR 

CHARACTER ' ' 
STRING 

ERROR 

ERROR 

ERROR ■ 

, ERROR 

ERROR 

ERROR 

• ■ 


Vector outer product V v ■ d: dimension check 

Vector DOT product V.V(d) 

Vector cross product V*v(d, restricted ,to 
3-element vectors). , 


Notes : (1) 

(2) 
G3) 
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Operation ' Division 


, 4 

OPERAND ^/OPERANDg 


i ST operand 2 
OPERAND^\^ 

INTEGER 

4 

, 

SCALAR 

' ■ ■ -- ' 

' '\ 

VECTOR , MATRIX. 

L- - 

BIT .STRING 

CHARACTER • 
STRING 

' INTEGER 

SCALAR 
I+S, I-5-S 

SCALAR ' •• 
I+S 

• ERROR ■ 

ERROR 

SCALAR 
I*S, B+I-vS 

ERROR 

SCALAR 

SCALAR 

I+S 

SCALAR 

ERROR - 

ERROR • 

SCALAR * 
B+I+S 

■ 

ERROR 

* 

VECTOR 

J 

VECTOR 

I+S 

VECTOR 

'ERROR 

1 ERROR 

'vector ' 
B+I+S 

ERROR' ’ "■ 

MATRIX 

• MATRIX 
' 3>S ' 

.MATRIX 

' ' ERROR 

___________________ 

, ERROR 
i ! . 

MATRIX 

B-+I+S ' 
• 

* ERROR 

BIT STRING 

. SCALAR 
B-+I-+S, I+S 

SCALAR 

B+I+S 

! 

, ERROR ' 

. 

1 

ERROR . ■ 

. 'SCALAR 
B->T->-S , 

' B+I+S. • 

■ ERROR ' 

CHARACTER 

STRING 

■ ERROR" 

’ ERROR 

‘ ■ ERROR' 

• ■ . ' . ERROR , : 

ERROR 

- - - A 

/ ERROR 

‘ " t 
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Operation ' Exponentiation 


7. ' OPERAND"^* *OPER&ND 2' 


'\nPERAND 2 

OPSRAND^\- 

INTEGER . 

SCALAR 

VECTOR 

t 

MATRIX 

’t * 

BIT ‘ ST’RING 

CHARACTER 

STRING- 

INTEGER 

i 

SCALAR (1) 
OS 

SCALAR (1) 
OS 

ERROR 

' ERROR 

scalar^- - 

OS, B->-OS 

ERROR • 

SCALAR 

SCALAR 

SCALAR 

ERROR 

ERROR 

SCALAR 
•' B+I+S 

ERROR. 

VECTOR . 

ERROR 

ERROR 

ERROR • 

ERROR 

ERROR 

ERROR 

(5) 

MATRIX' 1 1 

MATRIX 

MATRIX 
•/ S-KT 

ERROR 

’ 

• - ERROR . 

' MATRIX 
B->I 

ERROR 

ft 

j BIT STRING 

i 

SCALAR^ 
B-KOS, OS 

SCALAR^ ' 
B-KOS 

ERROR 

ERROR 

• SCALAR* 4 * 
B-^I-^S , B-KL^S 

ERROR 

CHARACTER 

STRING 

ERROR 

ERROR 

ERROR.,- 

• ' ERROR 

■ 

ERROR 

- - - * 1 

■ ERROR 

i 


0 

1 

cn 


Notes: (1) Result is 1 INTEGER if OPERAND „ is a whole number literal _> 0 (no OS) . 

(2) Result is INTEGER if OPERAND^ is a bit string literal which may be 'converted 

to an unsigned integer (no os , B-KL) . . ■ 

(3) Result is INTEGER if OPERAND ~ is a whole number literal -> 0 _ (B*IJ . . 

(4) Same as (2) except (B-KE, B+I y. 

(5) See Sec. 6. 1.1. 4 


Table 05 




".OPERAND, { P }OTERAND 0 1 P: ° ... 

• U ~f <r > r <~ , >=,T<,q> 

Operation Comparison . • , • • 

Table shows valid relational . operators ; the result is always true or. false.- " 


OPERAND 0 | 
v. A 


i OPERANI 


INTEGER 


SCALAR 


VECTOR 


MATRIX ■ BIT STRING' 


CHARACTER 

STRING 


INTEGER 


ERROR 


ERROR 


ERROR 


SCALAR 


VECTOR. 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


■ Q 

B+I+S 


• . *\ 

ERROR . 


ERROR 


ERROR 


MATRIX 


ERROR 


ERROR 


ERROR 


I 


ERROR . 


I 

BIT STRING 

Q 

Q' 

ERROR'. ' 

ERROR 

: '.Q (1) ' 

ERROR 


g : 4-T 

• B+I+S 

» » 

. ■ 



CHARACTER 

STRING 

ERROR 

ERROR 

1 

; 

ERROR 

' 

' ERROR 

‘ • i 

ERROR y 

1 

q C2) . 


Speical: structure-operand,? s tructure-operand 2 


Table C-6 


Notes: (1) OPERAND padded on the 

left to make lengths 
equal if necessary. 

(2) OPERAND padded on the 
right to make lengths 
.equal if necessary. 










OPERAND, 


OPERAND. 


INTEGER 


SCALAR ' 


VECTOR 


MATRIX 


INTEGER 


orbrand 2 . 


SCALAR 


VECTOR 


MATRIX 



;■ ■ • Q : . | , AND, OR 


BIT STRING 



CHARACTER 

STRING 


CHARACTER 

I-vC* 


CHARACTER 


BIT STRING 


BIT' STRING 


ERROR 


CHARACTER 

STRING 


CHARACTER 

I->-C 


CHARACTER 
S->C • 


ERROR 


* I— >c means . conversion’ from integer to character 
** S-^C means conversion from scalar to character 

Table C -7 


ERROR 


CHARACTER 

B-H-+C 


CHARACTER 




























Appendix D 


HAL Single-Line Format 

l 

Most HAL statements can be written in 'a single line’, similar 

to FORTRAN or PL/1. The single line format requires the use of 

1 

the following operators : 

** for exponentiation 
$ for subscripting 

V 

>*■ 

Examples 

Multi-Line . _ Single.-Line 

1. X = A 2 + B 2 ; X = A**2 + B**2-; 

2. X = A + Bj,* ■ X = A$I +.B$I; 

If the exponent or subscript is an expression (or a multiple 
subscript) rather than a simple name or literal, the. expression, 
in single-line format, must be enclosed in parentheses: 


3. 

x = a j!k 

X = A$ (J,K) ** (2P) 

4. 

x = *1 

J,K+3 

X = B$ (A$ (J,K+3) ) **2 


When subscripting an exponent or exponentiating a subscript, 
it becomes necessary to introduce the single-line format into the 
multi-line statement as well. 

D.l Implicit Data Declarations 

Since data type annotation (-) , (*) , (.), (,) cannot be 

supplied by the programmer over a variable name, using a single- 
line, implicit data declarations are not possible in this format. 


D-l 



Appendix E 


Character Collating Sequence 


(To be supplied at a later date) 


E-l 




Appendix F 

Formulating ["shaping") Functions 

(unsubscripted with single entry 
lists. Also see Sec. 9.2) 


The tables below indicate the resulting array shape and 
type dimensions for the functions 

SCALAR 

INTEGER 

BIT 

‘ CHARACTER 
VECTOR 
MATRIX 

where the functions themselves are unsubscripted and the arguments 
consist of a single entry (e.g. a scalar, a vector, etc. or an 
array of any data type) . 


Table F.l SCALAR, INTEGER, BIT, CHARACTER . 


Argument 


a,b : & 

* 

M 

m,n 

[M] 

J a:m,n 

Resulting 

Array 

Shape 

[X], 

tX] a,b,£ 

[X] 

1 m,n 

tx] 

J a,m,n 


F-l 





Subscripts above indicate shape and dimension (i.e., array~ 
shape : dimension) £ = vector length; m,n = matrix rows, columns; 
a,b = array shape (in general, the argument array shape may be 
, c , . . . etc . ) . x represents bit string, integer, scalar, or 
.character string. 

Table F.2 VECTOR, MATRIX 


' ' Argument 


Resulting 
Array Shape 
& Dimensions 

x d) 

».,b 

V £ 
or 
• [X] 


* 

M 

m,n 

[Ml . 

J a,b:m,n 

VECTOR 

„(2) 

^default 

! 

V a:b 


l^a.bh 


^ ] a,b,m:n 

MATRIX 

m (2) 

1 default 

* . ! 

KL V 
a ,b 

m (3) - 

1 default 

™a=b,i 

* 

M 

m,n 

[M] . 

J a,fe-:m,n 

— — - » 


t 


- 

. 

. , 


Subscripts are defined in Table F.l 

Notes.: - " • 

. Cl) X refers to bit string, integer, scalar or character 
operands. Appropriate conversion to scalar is 
accomplished. 

C2) All components are set equal to X. 

(3) The length £ must equal the product of the product 
of the matrix default dimensions. (In general, the 
argument array shape may be a,b,c, . . .etc. ) , - - • 








